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PREFACE 



This manual is published as a reference guide for programmers and systems 
analysts whose programs written in the COBOL language are to be compiled and 
executed in the Multics envirbnment. It is designed to provide a formal definition 
of the COBOL language as specified in American National Standard COBOL X3. 23-197'* 
and implemented for the Honeywell Series 60 (Level 68) computer systems. It 
contains formats, syntax rules, and general rules for the construction of a 
working COBOL source program. The manual is organized on the basis of a functional 
processing concept in a manner similar to the standard specifications from which 
it is derived . 

Areas in this manual which are enclosed in boxes indicate LEVEL 68 extensions 
to the American National Standard COBOL. Use of these extensions in COBOL source 
programs intended to be compiled interchangeably by one or more COBOL compilers 
may lead to different compilation and/or execution results. 

Section I provides an overall outline of the COBOL divisions and their 
uses. Section II presents a general treatment of all COBOL language concepts. 
Section III explains the reference format used in COBOL programming, and Section 
IV describes syntax rules used in this manual. 

Section V describes the Control Division, a Honeywell extension that allows 
the user to specify default values for the current compilation of the source 
program. Section VI describes the Identification, Environment, and Data Divisions 
in the nucleus; the Procedure Division in the nucleus is described in Section 
VII. 

Sections VIII through XI describe various language elements. Section VIII 
describes elements that allow definition of tables and their subsequent manipulation 
through subscripting and indexing. Elements necessary for the definition and 
processing of sequential, relative, and indexed files are described in Section 
IX. Section X describes input/output elements and elements required for sorting 
files. Section XI describes language elements that provide the capability for 
the segmentation of procedures into overlayable sections. 

Section XII describes the library facility, which allows source text to be 
copied from a library into a COBOL program. 

Section XIII describes the debug feature, which allows the user to monitor 
data items and procedures during the execution of the object program. Section 
XIV describes the interprogram communication facility, through which a program 
can communicate with one or more separately compiled programs. 
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Section XV describes the communication facility that provides the caoabilitv 
for accessing, processing, and creating messages. capaoiiity 

.o^^K^r^^^" XVI describes the Report Writer facility which provides for producing i 
reports by specifying the physical appearance of the report, I 

Appendix A contains a list of reserved words that may not be employed as 
user-defined words. ^ 

Appendix B is a glossary of terms used in this manual. Many terms, such as 
data-name and identifier, have similar meanings but very specific differences in 
the technical sense, of which the user must be aware. The exact meaning of all 
such terms, which is the intended meaning each time the wo^d is used ^^ t^-is 
manual, is contained in the glossary. 

Appendix C contains ASCII and EBCDIC collating sequence and bit configuration 
charts. 

Appendix D describes FIPS leveling. 

Other manuals that contain related supporting information are: 

Multics COBOL Users' Guide . Order Number ASMS 

Hultics Users' Guide . Order Number AL^O 

Multics Programmers' Manual. Reference Guide . Order Number AG91 

Multics Programmers' Manual, Commands and Active Functions . Order Number AG92 

Multics Programmers' Manual, Subroutines . Order Number AG93 

The svmboloev adonhpH f Vn-rtucrVini.*- v ^l^ ., _«„..~i t- ^ , 

„„j -IT i.' i.- "' . '' — -~-o«— -" -..xo ujQi.uajL uu represent values m examples 

It i^ i^l^lf^l^L^! f^^^'''^^^^}^ }.^^^ .'i?^'^ ^" American National Standard COBOL. 
It IS described more fully in Section IV. 

1. Lowercase characters represent symbolic information whose exact values 
are supplied by the programmer. 

2- UNDERLINED U PPERCASE CHARACTERS are key words used exactly as shown 
and required when the functions of which they are a part are used. 

3. UPPERCASE CHARACTERS NOT UNDERLINED are words reserved by COBOL, but 
are optional when the functions of which they are a part are used. 
(Refer to Appendix A.) 

M. Braces { } usually indicate that a choice must be made from among the 
list of values enclosed by the braces. 

5. Brackets [ ] indicate that the enclosed contents are optional, and are 
to be included in the source program as necessary. 

6. The characters +, -, <, and > are required when they appear in formats, 
even though they are not underlined. 
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SECTION I 



INTRODUCTION 



GENERAL nKscRTPTTnw Qf r,nmh 

hn,<no25°^Hif * Pr-ogi'amning language used throughout the world for programming 
business data processing applications. The COBOL language was developed bv a 
dlsSMbuLd^TS^T "««",«"d, manufacturers, and fi?st* documentaUon was 
distributed in April I960. Since then it has undergone many extensions and 
changes resulting from manufacturer experience with COBOL imJlementaUon aSd 
user experience with COBOL programming for computers of many sizes and 
?e?med"EoBJr?i| ^'' i-P'-ovements are embodied in this version of 'he language 



From a computer user's standpoint, COBOL offers several advantages: 



o 

o 

o 
o 



It provides a quick means of program implementation. 

It reduces costs of converting programs from one computer system to 
another. 

It reduces time and effort required for training programmers. 
It guarantees a measure of standard documentation. 



Encli^S tmfii?n^ . ^f®'' ^°. ^"Struct computers in a language similar to 
Pn!JJf^ Following conventions of a standard reference format, the user writes 
nnoiioL^ ^^®?®"^ f2 ««ntence and paragraph form to describe data to be 
processed and to specify required procedures. The complete body of statements is 
called a source program. 



- ^^^ u°r°® program is always in a Multics segment created by a text editor. 

fho .^1:1"°? °^^**^' or from magnetic tape. The segment is submitted as input to 
the computer under control of a special program, called a compiler. The compiler 
produces an object program in a Multics Segment that bon?ains the actual 
sequence of machine instructions required to accomplish the functioSI specJfJed 
in the source program. In addition, the compiler produces edited listings that 
include a printout of the source program. xxatings tnat 



r nin^IofrnS^?"^**"^ function of the compiler is to analyze the source program 
r correct COBOL syntax and to print error comments for any syntax errors that 
m ilati computer's operation under control of the compiler is called 



fo 

are detected 

compilation 
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COBOL DIVTSTDNS 

A Multlcs COBOL program comprises five divisions, each of which must be 
constructed according to specific rules. (Refer to Section III.) A COBOL 
division is a set of zero, one, or more sections or paragraphs; together they 
constitute the division body. Paragraphs are likewise formed and combined in 
accordance with a specific set of rules. 

The following divisions are used to form a COBOL program and must appear in 
the program in the following order: 

o Control Division (optional) 

o Identification Division 

o Environment Division 

o Data Division 

o Procedure Division 



Control Division 

The optional Control Division contains the Default Section. When it is 
included in the source program, the Control Division must be the first division 
in the program, preceding the Identification Division. The Default Section 
allows compiler default conditions to be specified if other than standard 
defaults are required. 



General Format: 



^QHIfiOL £IU2IM. 



[ 

I DEFAULT SECTION . F default clauses J . ... J I 
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This 5Jvis?of {Sinfff?L°^)^i'^°" ""^*^ ^* included in every COBOL source program, 
resultant oCtnutlf^Mn.^^* ^^"''"'^ progran,, the object program, and the 
pnogia? Ss ..^""-i J"^' ^ ?^ "^®'' "^y ^^«° include the date on which the 
a^onmn'TiohL *' T"?: ^?^» °^^^ °" *''^i°*' soupce program compilation is 
accomplished, and other information as desired. 

oara^r^nh^''^?!! ^^^'^^''l identify the type of information contained in the 
PRORRftM rn nl^L"*""! ° n-u^® program must be given in the first paragraph, the 
the SJer P^'^^^'^^P*'- ^he other paragraphs may be included at the discretion of 



General Format: 



IDENTIflCflTTOH Division . 
PRQGRAM-ID. program-name. 
[_ AlIIHOR- r comment-entry J ... I 

|_ IMSTALLATIOM- [ comment-entry ] 

I PATE-WRITTRN. [comment-entry] 

LPATE-CQHPIl.RP. [comment-entry] 

[ SECURITY. [comment-entry] ...J 



■] 



] 



Environment Dlvialf^n 

Thi, I?ui«?!!''^''°""'?I!'' Division must be included in every COBOL source program. 
!^iL T^^^°" Pfe^i'^es a standard method of expressing those aspects of a data 
processing problem that depend upon the physical characteristics of a soecific 

arrspe;ifled'''%S''idi??; '"' °°»P'''?f ^^"'P"^^^ ^"'^ ^'^^ exerting cSmpiter 
^nL-.!?^ i ■^" addition, information relating to input/output control 

alio be Sres^nted?' °P^''^""« ^^^^^"^ characteristics,%nd control techniques can 
Input!c'utpCrSectioS.''''''°" '' ''"'''' '"'°' ''^^ Configuration Section and the 

nhon=IfL^E??^^^"^^^u°" Section provides program documentation for the hardware 
execute tifihi.^f 'n^ computer used for compilation and of the computer useSto 
execute the object program. Provisions are included in this section for 

inemoiif nlSIs'''^ '"'''"'''' ^"' °''^''^''"« ''''''' features to user-spe°Sif[:; 
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The Configuration Section is subdivided into three paragraphs: 

SOURCE-COMPUTER paragraph, which identifies the computer on which the 
source program is to be compiled 

o OBJECT-COMPUTER paragraph, which identifies the computer on which the 
object program produced by the compiler is to be executed 

o SPECIAL-NAMES paragraph, which associates hardware names and operating 
system features with mnemonic-names used in the source program and 
relates alphabet-names to character sets and/or collating sequences 

The Input-Output Section is concerned with information needed to control 
the transmission and handling of data between external devices and the object 
program; it is subdivided into the following two paragraphs: 

o FILE-CONTROL paragraph, which names all files used in the program and 
associates them with internal file names, which are in turn associated 
with I/O switches by the operating system 

o I-0-CONTROL paragraph, which defines special control techniques to be 
used in the object program 



General Format: 

CQNFIGURATIOM 2££IIQH. 
SQURCE-CQMPUTER. source-computer-entry 
OBJECT-COMPUTER . object-oomputer-entry 
[ SPECIAL-NAHES. special-names-entry] 

[ INPUT-OUTPUT S££IIQH. 
FILE-CQMTROL . ^ file-control-entry J 

f I-0-CQNTRQL . Input-output-control-entry J J 

Data DlYiaion 

The Data Division describes the data that the object program is to accept 
as input, to manipulate, to create, or to produce as output. Data to be 
processed falls into three categories: 

o That which is contained in files and enters or leaves the internal 
memory of the computer from a specified area or areas 

That which is developed internally and placed into intermediate or 
working-storage, or placed into a specific format for reporting output 

o Constants that are defined by the user 
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the FUe Seetinn''fhrL,'\'^''"c::^'* '" ^^^"^ ^°^°^ program and is subdivided into 
^Pofiin onH h A ^ Working-Storage Section, the Constant Section, the Linkage I 
Section and the Communication Section. in^dBt i 

bv a ^?M'^L!^''^'f" defines the structure of data files. Each file is defined 
Dya file description entry and one or more record descriptions. Record 
u^o^rip,.ions are written immediately following the file description entry. 

th.f ^5. Working-Storage Section describes records and noncontiguous data items 
internally?" ^^ external data files but are developed and processed 

The Constant Section describes data items whose values are assigned in the 
source program and do not change during the execution of the object program. 

The Linkage Section appears in the called program and describes data items 
that are to be referred to by the calling program and the called program. Its 
structure is the same as that of the Working-Storage Section. (Refer to Section 
XIV for interprogram communication information.) 

The Communication Section describes the data item in the source program I 
that serves as the interface between the COBOL Message Control System (CHCS) and I 
the program. (Refer to Section XV, "Communication Facility.") I 



General Format: 



DATA DIVISION, 



[ 



FILE SECTION. 



[ 
[ 



L file-description-entry F record-description-entry J 

sort-flle-descrlptlon-entry ^ record-description-entry ^ •••J ••• j 



WORKING-STORAGE SECTION. 



L 77-level-de3cription-entry J [_ record-description-entry J ...J 



CONSTANT SECTION. 



L 77-level-de3criptlon-entry J |[ record-description-entry J ...J 
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LINKAGE SECTION. 



[ 

r 77-level-de8cription-entry J F record-descrlptlon-entry J •••J 

r 



COMMUNICATION SECTION 



r Comnunication-description-entry T record-description-entry j ..-J •••J 
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Ena.ce^iiiifi-Bivlaiaa 

The Procedure Division contains the procedures required to solve a given 
problem and must be included in every COBOL source program. This division may 
contain declarative and nondeclarative procedures. 



PROCEDURE DIVISION HEADER 

The Procedure Division is identified by and must begin with the followinp. 
header: 



PBQCEDORE DIVISION I USIM data-name 



PROCEDURE DIVISION BODY 



I USING data-name- 1 [] , data-name-2 J ...J 



The body of the Procedure Division must conform to one of the followinR 
formats: 

Foreat 1= 



[ 



DKCLAHATIVES. 

~ " declarative-sentence 



{ section-name SECTION ^ segment-number J 
I paragraph-name. [ sentence J ... J 



} 



MH nRrj.ARATTVES. 



] 

I section-name SECTION [ segment-number J . 
r paragraph-name. [_ sentence J . . , J . . . j . . 



Format 2: 



\ paragraph-name. T sentence J ... J 
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DECLARATIVES 



Declarative aectlons must be grouped at the beginning of the Procedure 
pin n^°":o?ii?!;'5*** ^^ ^^* ^^^ ^^^'^ declaratives, and followed by the key words 

(Refer to the USE statement applications in Section IX.) 



END DECLARATIVES. 



PROCEDURES 



A procedu^e is composed of a paragraph, or group of successive paragraphs, 
or a section, or a group of successive sections within the Procedure Division. 
If one paragraph Is in a section, then all paragraphs must be in sections. A 
procedure-name is a word used to refer to a paragraph or section in the source 
program in which it occurs. It consists of a paragraph-name (which may be 
qualified) or a section-name. 

The end of the Procedure Division and the physical end of the program is 
that physical position in a COBOL source program after which no further 
procedures appear. 

A section consists of a section header followed by zero, one, or more 
successive paragraphs. A section ends Immediately before the next section or at 
the end of the Procedure Division or, in the declarative portion of the 
Procedure Division, at the key words END DECLARATIVES. 

A paragraph consists of a paragraph-name followed by a period and a space 
and by zero, one, or more successive sentences. A paragraph ends Immediately 
before the next paragraph-name or section-name or at the end of the Procedure 
Division or, in the declarative portion of the Procedure Division, at the key 
words END DECLARATIVES. 
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STATEMENTS AND SENTENCES 

A sentence is a sequence of one or more statements, the last of which is 
terminated by a period followed by a space. The three types of sentences are 
conditional sentences, compiler-directing sentences, and imperative sentences. 

A statement is a syntactically valid combination of words and symbols 
written in the Procedure Division and beginning with a COBOL verb. The three 
types of statements are conditional statements, compiler-directing statements, 
and imperative statements. 

The term "identifier" is defined as the word or words necessary to make 
unique reference to a data item. 

Execution begins with the first statement of the Procedure Division, 
excluding declaratives. Statements are then executed in the order m which they 
are presented for compilation, except where the rules indicate some other order. 



Conditional Statements and Sentences 

A conditional statement specifies that the truth value of a condition is to 
be determined and that the subsequent action of the object program is dependent 
on this truth value. A conditional statement is one of the tollowmg: 

• CALL (OVERFLOW), IF, RETURH (AT END). SEARCH (AT END), STRING 
(OVERFLOW), and UNSTRING (OVERFLOW) statements 

• READ statement that specifies the AT END or INVALID KEY phrase 

• WRITE statement that specifies the INVALID KEY or END-OF-PAGE phrase 

• DELETE, REWRITE, or START statement that specifies the INVALID KEY 
phrase 

• Arithmetic statement (ADD. COHPUTE, DIVIDE, MULTIPLY, SUBTRACT) that 
specifies the SIZE ERROR phrase 

• A RECEIVE statement that specifies a NO DATA phrase 

A conditional sentence is a conditional statement terminated by a period 
followed by a space. The conditional statement may be optionally preceded by an 
imperative statement. 



Compiler-Directing Statements and Sentences 

A comDller-dlrecting statement consists of a compiler-directing verb and 
its o5eran5S Compiler-directing verbs are COPY and USE. A compiler-directing 
stateS^nJcauses the compiler to take a specific action during compilation, 

A compiler-directing sentence is a single compiler-directing statement 
terminated by a period followed by a space. 
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Imperative Statements and Sentences 

An imperative statement indicates a specific unconditional action to be 
taken by the object program. An imperative statement is any statement that is 
neither a conditional nor compiler-directing statement. An imperative statement 
may consist of a sequence of imperative statements, each possibly separated from 
the next by a separator. Imperative verbs are: 



ACCEPT 

ADD (Note 1) 

ALTER 

CALL 

CANCEL 

CLOSE 

COMPUTE (Note 1) 

DELETE (Note 2) 

DISABLE 

DISPLAY 

DIVIDE (Note 1) 

ENABLE 



EXIT 

GO TO 

INSPECT 

MERGE 

MOVE 

MULTIPLY (Note 1) 

OPEN 

PERFORM 

PURGE 

READ (Note 4) 

RECEIVE (Note 5) 

RELEASE 



REWRITE (Note 2) 

SEND 

SET 

SORT 

START (Note 2) 

STOP 

STRING (Note 3) 

SUBTRACT (Note 1) 

UNSTRING (Note 3) 

WRITE (Note 2) 



Notes: 1. Without the optional SIZE ERROR phrase 

2. Without the optional INVALID KEY phrase 

3. Without the optional ON OVERFLOW phrase 

4. Without the optional AT END or INVALID KEY phrase 
3. Without the optional NO DATA phrase 

When the term "imperative-statement" appears in the general format of 
statements, it refers to that sequence of consecutive imperative statements that 
must be ended by a period, an ELSE phrase associated with a previous IF 
statement, or a WHEN phrase associated with a previous SEARCH statement. 

An is an imperative statement terminated by a period followed by a space. 



Categories of Statements 

Verbs available in COBOL are listed below within their functional 
categories: 



Category 



Verbs 



Arithmetic 



Coapiler-Dlrecting 



ADD 

COMPUTE 

DIVIDE 

INSPECT (TALLYING) 

MULTIPLY 



{ 



COPY 
USE 
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Category 



Verbs 



Conditional 



Data Movement 



ADD (SIZE ERROR) 

CALL (OVERFLOW) 

COMPUTE (SIZE ERROR) 

DELETE (INVALID KEY) 

DIVIDE (SIZE ERROR) 

IF 

MULTIPLY (SIZE ERROR) 

READ (AT END or INVALID KEY) 

RETURN (AT END) 

RECEIVE (NO DATA) 

REWRITE (INVALID KEY) 

SEARCH (AT END) 

START (INVALID KEY) 

STRING (OVERFLOW) 

SUBTRACT (SIZE ERROR) 

UNSTRING (OVERFLOW) 

WRITE (INVALID KEY or END-OF-PAGE) 

ACCEPT (DATE, DAY, or TIME) 

INSPECT (REPLACING) 

MOVE 

STRING 

UNSTRING 



Ending 



STOP 



Input/Output 



Interprogran 
Communication 



Ordering 



Procedure Branching 



Table Handling 



{ 

{ 



ACCEPT (identifier) 

CLOSE 

DELETE 

DISABLE 

DISPLAY 

ENABLE 

OPEN 

PURGE 

READ 

RECEIVE 

REWRITE 

SEND 

START 

STOP (literal) 

WRITE 

CALL 
CANCEL 



{ 



MERGE 
RELEASE 
RETURN 
SORT 

ALTER 
CALL 
EXIT 
GO TO 
PERFORM 

SEARCH 
SET 
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Specific Statement Formats 

The specific statement formats, together with a detailed discussion of the 
restrictions and limitations associated with each, appear in alphabetic sequence 
in the appropriate sections of this manual. (Refer to the index.) 
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SECTION II 
LANGUAGE CONCEPTS 



CHARACTER SKT 

The basic and indivisible unit of the language is the character. The 
character set used to form COBOL character-strings and separators consists of 85 
characters, including both uppercase and lowercase letters, digits, and special 
characters. In the case of nonnumeric literals, comment-entries, and comment 
lines, the character set is expanded to include the computer's entire character 
set. The characters allowable in each type of character-string and as 
separators are defined in this section and in Appendix B. 

Individual characters of the language are joined to form character-strings 
and separators. A separator may be concatenated with another separator or with 
a character-string. A character-string may be concatenated only with a 
separator. The concatenation of character-strings and separators forms the text 
of a source program. 



Upperca se and Lowep cas e Letters 

In Multics COBOL, the user can employ both lowercase and uppercase letters 
to form character-strings wherever the rules for formation of character-strings 
allow the usage of uppercase letters. 

Two characters form a corresponding uppercase and lowercase pair if they 
differ only in case (for example, A and a). The following rules define the 
conditions under which two characters of a corresponding uppercase and lowercase 
pair are treated as two distinct characters or as the same character. 

Within PICTURE character-strings, in user words, and in reserved words, the 
two characters of a corresponding uppercase and lowercase pair are treated as 
specifying the same character. (For example, PIC X and pic x both describe a 
one-character alphanumeric Item. Further, MOVE, move, and Move ^re all 
considered correct usages of the reserved word MOVE.) 
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The two characters of a corresponding uppercase and lowercase pair are treated 
as two distinct characters in the following cases: 

• Within nonnumeric literals and comment-entries. For example, these two 
statements are different: 

IF "A" EQUALS TEMP . . . 

IF "a" EQUALS TEMP .. . 

• Within internal file names (in the SELECT clause) 

• Within program-id (in the Identification Division) 

• Within text-name (in the COPY statement) 



Separators 

A separator is a string of one or more punctuation characters. The rules 
for forming separators are: 

1. The punctuation character space is a separator. Wherever a space is 
used as a separator in a program, more than one space may be used. 

2. The punctuation characters comma, semicolon, and period, when 
immediately followed by a space, are separators. These separators may 
appear in a COBOL source program wherever explicitly permitted by the 
general formats, by format punctuation rules, by statement and sentence 
structure definitions, or by reference format rules. (Refer to Section 
III.) 

NOTE: Multics COBOL also allows comma and semicolon separators to appear 
anywhere a space can appear. 

3. The punctuation characters right parenthesis and left parenthesis are 
separators. Parentheses may appear only in balanced pairs of left and 
right parentheses delimiting subscripts, indexes, arithmetic 
expressions, or conditions. 

4. The punctuation character quotation mark is a separator. An opening 
quotation mark must be immediately preceded by a space or a left 
parenthesis; a closing quotation mark must be immediately followed by one 
of the separators: space, comma, semicolon, period, or right 
parenthesis. 

Quotation marks may appear only in balanced pairs delimiting 
nonnumeric literals, except when the literal is continued. (Refer to 
"Continuation of Lines" in Section III.) 

5. Pseudo-text delimiters are separators which consist of two contiguous 
equal sign j( = = ) characters on the same line. An opening pseudo-text 
delimiter must be inr.ediately preceded by a space; a closing pseudo-text 
delimiter must be immediately followed by one of the separators space, 
comma, semicolon, or period. Pseudo-text delimiters may appear only in 
balanced pairs delimiting pseudo-text. 
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6. The separator space may Immediately precede all separators except: 

a. As specified by the reference format rules. 

b. The closing quotation mark, in which case a preceding space is 
considered as part of the nonnumeric literal and not as a 
separator. 

c. As the opening pseudo-text delimiter, where the preceding space 
is required, 

7. The separator space nay immediately follow any separator except the 
opening quotation mark, in which case a following space is considered 
as part of the nonnumeric literal and not as a separator. 

Any punctuation character that appears as part of the specification of a 
PICTURE character-string or numeric literal is not considered as a punctuation 
character, but rather as a symbol used in the specification of that PICTURE 
character-string or numeric literal. PICTURE character-strings are delimited 
only by the separators space, comma, semicolon, or period. 

Rules established for the formation of separators do not apply to the 
characters that make up the contents of nonnumeric literals, comment-entries, or 
comment lines. 



Character-Strings 

A character-string is a character or sequence of contiguous characters that 
form a COBOL word, a literal, a PICTURE character-string, or a comment-entry. A 
character-string is delimited by separators. 



COBOL WORDS 

A COBOL word is a character-string of not more than 30 characters that 

forms a user-defined word, a system-name, or a reserved word. Within a given 

source program, these classes form disjoint sets; a COBOL word may belong to 
only one class. 



Uaer-Defined Words 

A user-defined word is a COBOL word that the user must specify to satisfy 
the format of a clause or statement. Each character of a user-defined word is 
selected from the following set of characters: 

O Af 0, Cf •••y Z 

o a, b,c, ...,z 

o 0, 1, 2, ..., 9 

o - (hyphen) 

NOTE: The hyphen may not appear as the first or last character. 
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There are 15 types of user-defined words: 

alphabet-name mnemonic-name 

cd-name paragraph-name 

condition-name program-name 

data-name record-name 

file-name section-name 

index-name segment-number 

level-number text-name 
library-name 

Within a given source program, 13 of these 15 types of user-defined words 
are grouped into the following 11 disjoint sets: 

alphabet-names 

cd-names 

condition-names, data-names, and record-names 

file-names 

index-names 

library-names 

mnemonic-names 

paragraph-names 

program-names 

section-names 

text-names 

All user-defined words, except segment-numbers and level-numbers, can 
belong to only one disjoint set. Further, all user-defined words within a given 
disjoint set must be unique, either because no other user-defined word in the 
same source program has identical spelling or punctuation, or because uniqueness 
can be ensured by qualification. (Refer to "Uniqueness of Reference" in this 
section. ) 

With the exception of paragraph-name, section-name, level-number, and 
segment-number, all user-defined words must contain at least one alphabetic 
character. Segment-numbers and level-numbers need not be unique; a given 
specification of a segment-number or level-number may be identical to any other 
segment-number or level-number and may even be identical to a paragraph-name or 
section-name. 



CONDITION-NAHE 

A condition-name is a name that is assigned to a specific value, set of 
values, or range of values, within a complete set of values that a data item may 
assume. The data item Itself is called a conditional variable. 

Condition-names may be defined in the Data Division or in the SPECIAL-NAMES 
paragraph within the Environment Division where a condition-name must be 
assigned to the ON STATUS or OFF STATUS, or both, of SWITCH-n. 

A condition-name is used only as an abbreviation for the relation 

condition; this relation condition stipulates that the associated conditional 

variable is equal to one of the set of values to which that condition-name is 
assigned. 
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MNEMONIC-NAME 



A mnemonic-name assigns a user-defined word to a hardware or operating 
system feature. These associations are established in the SPECIAL-NAMES 
paragraph of the Environment Division. 



PARAGRAPH-NAME 



A paragraph-naoe is a word that names a paragraph in the Procedure 
Division. Paragraph-names are equivalent only if they are composed of the same 
sequence of the same number of digits and/or characters. 



SECTION-NAME 



A section-name is a. word that names a section in the Procedure Division. 
Section-names are equivalent only if they are composed of the same sequence of 
the same number of digits and/or characters. 



OTHER USER-DEFINED WORDS 



Refer to Appendix B for definitions of other types of user-defined words. 



System*Wames 

A system-name is a COBOL word that is used to communicate with the 
operating environment. System-names are used to refer to a specific feature of 
the hardware/software environment, such as SYSOUT, SYSIN. etc. 



Reserved Words 



A reserved word is a COBOL word that is one of a specified list of words 
that may be used in COBOL source programs but must not appear in the programs as 
user-defined words. Reserved words can be used only as indicated in the general 
formats. (Refer to Appendix A for a listing of the reserved words.) 



he seven types of reserved words are; 

Key words 

Optional words 

Connectives 

Special registers 

Figurative constants 

Special-character words 

System-names 
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KEY WORDS 

A key word is a word whose presence is required when the format in which 
the word appears is used In a source program. Within each format, such words 
are uppercase and underlined. The three types of key words are: 

• Verbs, such as ADD and READ 

• Required words, which appear in statement and entry formats 

• ^c^T^nl;'^^*^ ^^"^ ^ specific functional meaning, such as NEGATIVE and 



OPTIONAL WORDS 



Within each format, uppercase words that are not underlined are called 
optional words and may be specified at the discretion of the user. The presence 
or absence of a.i optional word does not alter the semantics of the COBOL program 
in which it appears. 



CONNECTIVES 

The three types of connectives are: 

• Qualifier connectives that, are used to associate a data-name, 
ccndition-name, text-name, or paragraph-name with its qualifier: OF, 
II 

• Series connectives that link two or more consecutive operands: , 
(separator comma) or ; (separator semicolon) 

• Logical connectives used in the formation of conditions: AND, OR 



SPECIAL REGISTERS 



Certain reserved words are used to name and reference special registers. 
Special registers are designated compiler-generated memory areas whose primary 
use is to store information produced In conjunction with specific COBOL 
I features. The special register is LINAGE-COUMTER. 



FIGURATIVE CONSTANTS 



Figurative constants are reserved words used to name and reference specific 
compiler-generated constant values. (Refer to "Figurative Constant Values" 
later in this section.) 
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SPECIAL-CHARACTER WORDS 

Arithmetic operators, e.g., ♦ and -, and relational characters, e.g.. >. <. 
and =, are reserved words. (Refer to Appendix B for definitions.) 



SYSTEM-NAHES 

System-names are used to refer to a specific feature of the 
hardware/software environment, such as SYSOUT, SWITCH-n, CATALOG-NAME, etc. 



LITERALS 

A literal is a character-string whose value Is implied by an ordered set of 
characters of which the literal is composed or by specification of a reserved 
word that references a figurative constant. Literals are either nonnumeric or 
numeric. 



Nonnumeric Literals 

A nonnumeric literal is a character-string delimited on both ends by 
quotation marks and consisting of any ASCII characters. A nonnumeric literal 
may be up to 256 characters in length. To represent a single quotation mark 
character within a nonnumeric literal, two contiguous quotation marks must be 
used. The value of a nonnumeric literal in the object program ia the string of 
characters itself, except that: 

• Delimiting quotation marks are excluded. 

« Each embedded pair of contiguous quotation marks represents a single 
quotation mark character. 

All other punctuation characters are part of the value of the nonnumeric 
literal rather than separators; all nonnumeric literals are categorized as 
alphanumeric. (Refer to "PICTURE Clause" in Section VI.) 



Nonprinting Characters 

Any character within a nonnumeric literal can be represented by a string of 
digit pairs enclosed within quotation marks. In the following example of such a 
string, the leftmost digit in a pair represents the left five bits of the 

V'tiai ci\.vi;i oiiu uuv I Aoiivtii\^3^ ux{^i.u I cjji caciiu^ iriiv I xguu lOuF uxuS Oi uiit; 

character: 

••AX'»"3BHC"YZ'' 

Thus, AX4 and YZ represent normal ASCII characters, and 3BHC represents the 
following bit pattern (see Table 2-1 for digit values): 

"00011 1011 10001 1100" 
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Note that the symbol A is included in the example only to indicate blank 
characters and to improve its readability. 

Binary values for these digit pairs are listed in Table 2-1. Digits on the 
left side of the table can be used as either the x^iftmost or rightmost digit of 
a pair. However, digits on the right side of the table can be used only as the 
leftmost digit. 

Table 2-1. Values of Digit Pairs in Nonnumeric Literals 



Left or Right 
Digit 


Binary 
Value 


Left Digit 
Only 


Binary 
Value 





0000 


G 


10000 




1 


0001 


H 


10001 




2 


0010 


I 


10010 




3 


0011 


J 


10011 




4 


0100 


K 


10100 




5 


0101 


L 


10101 




6 


0110 


M 


10110 




7 


0111 


N 


10111 




8 


1000 





11000 




9 


1001 


P 


11001 




A 


1010 


Q 


11010 




B 


1011 


R 


11011 




C 


1100 


S 


11100 




D 


1101 


T 


1 1101 




E 


1110 


U 


11110 




F 


1111 


V 


11111 




NOTE: The specification of nonprinting characters 
subsequent releases of Multics COBOL. The M 
should be prepared to modify programs that con 
characters. 


may change in 
ultics COBOL user 
tain nonprinting 
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Numeric Literals 



fh. ^4 numeric literal Is a character-string whose characters are selected fr 

«»!» :* f.? *'^'!;o"8h 9. the plus sign, the minus sign, and the decimnl point. « 

«"«!r* ,^^^^^ "^y ^* '"'"°™ °"« ^° ^8 digits in length. Rules for forming 
niaBsrlc literals are: 



om 
A 



1. 
2, 



A literal must contain at least one digit. 

Aliteral must contain no more than one sign character. If used, a 
sign character must appear as the leftmost character of the literal 
If unsigned, the literal is positive. 

A literal must contain no more than one decimal point. The decimal 
point is treated as an assumed decimal point and may appear in any 
location within the literal except as the rightmost character. If the 
literal contains no decimal point, the literal is an integer. 



If a literal conforms to the rules for the formation of numeric 
literals but is enclosed in quotation marks, it is 
literal and is treated as such by the compiler. 



nonnuroeric 



The value of a numeric literal is the algebraic quantity represented 
by the characters in the numeric literal. Every numeric literal is 
category numeric. The size of a numeric literal In standard data 
format characters is equal to the number of digits specified by the 
user. (Refer to "PICTURE Clause" in Section VI for additional 

Information.) 



Figurative Constant Values 

Figurative constant values are generated by the compiler and are referenced 
by using the reserved words given below. These words must not be delimited by 
quotation marks when they are used as figurative constants. The singular and 
plural forms of figurative constants are equivalent and may "be used 
interchangeably. Figurative constant values and reserved words used to 

reference them are: 



ZERO/ZEROS/ZEROES 



SPACE/SPACES 



HIGH-VALUE/HIGH-VALUES 



Represents the value '0', or one or more of the 
character '0', depending on the context in which 
it appears. 



Represents one or more of 
(octal 010). 



the character space 



Represents one or more of the character that has 
the highest ordinal position in the program 
coll sting sequence. If a PROGRAM COLLATING 
SEQUENCE' clause is not present, the character 
associated with HIGH-VALUE is the character 
represented by octal 177. If the program contains 
a PROGRAM COLLATING SEQUENCE clause in the 
OBJECT-COMPUTER paragraph, the actual ASCII 
character dissociated with HIGH-VALUE depends upon 
the collat:;ng sequence specified by that clause. 
If the alphabet-name specified is EBCDIC, that 
character is represented by octal 377. If the 
alphabet-name la user-defined, 

corresponds to the position of 
explicitly or implicitly specified 
the alphabet specified. 



that value 
the highest 
character in 
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LOW- VALUE / LOW- VALUES Represents one or more of the character that has 

the lowest ordinal position in the program 
collating sequence. If a PROGRAM COLLATING 
SEQUEHCE clause is not present, the character 
associated with LOW-VALUE is the character 
represented by octal 000. If the program contains 
a PROGRAM COLLATING SEQUENCE clause in the 
OBJECT-COMPUTER paragraph, the octal ASCII 
character associated with LOW-VALUE depends upon 
the collating sequence specified by that clause. 
If the alphabet-name specified is EBCDIC, that 
character is represented by octal OOP . If the 
alphabet-name is user-defined, that value 
corresponds to the position of the lowest 
explicitly or implicitly specified character in 
the alphabet specified. 

QUOTE/QUOTES Represents one or more of the quotation mark 

character ("). The word QUOTE or QUOTES cannot be 

used in place of a quotation mark in a source 
program to delimit a nonnumeric literal. For 
example, the phrase QUOTE ABD QUOTE is incorrect 
as a method of stating the nonnumeric literal 
"ABD". 

ALL literal Represents one or more characters of the string of 

characters that make up the literal. The literal 
must be either a nonnumeric literal or a 
figurative constant other than ALL literal. When 
a figurative constant is used, the word ALL is 
redundant and is included in the source program 
only for readability. 

When a figurative constant represents a string of one or more characters, 
the length of the string is determined by the compiler from context according to 
the following rules: 

1. When a figurative constant is associated with another data item, such 
as when the figurative constant is moved to or compared with another 
data item, the string of characters specified by the figurative 
constant is repeated character by character on the right until the 
size of the resultant string is equal to the size in characters of the 
associated data item. This is accomplished prior to and independent 
of the application of any JUSTIFIED clause that may be associated with 
the data item. 

2. When a figurative constant is not associated with another data item, 
such as when the figurative constant appears in a DISPLAY, STRING, 
STOP, or UNSTRING statement, the length of the string is one 
character. 

A figurative constant may be used wherever a literal appears in a format, 
except that whenever the literal is restricted to numeric characters, the only 
figurative constant permitted is ZERO (ZEROS, ZEROES). 

feach reserved word used to reference a figurative constant value is a 
distinct character-string with the exception of the construction 'ALL literal 
which is composed of two distinct character-strings. 
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PICTURE CHARACTER-STRINGS 



A PICTURE character-string consists of certain 
in the COBOL character set used as symbols. 



combinations of characters 



Any punctuation character that appears as part of the specification of a 
PICTURE character-string is not considered as a punctuation character , but 
rather as a symbol used in the specification of that PICTURE character-string. 
(Refer to "PICTURE Clause" in Section VI for a discussion of the PICTURE 
character-string and for the rules governing its use.) 



CGHHENT-ENTRIES 



A comment-entry is an entry In the Identification Division that may be any 
combination of characters. A comment-entry has no effect on the operation of a 
COBOL program. 



COMPUTER INDEPENDENT DATA DESCRIPTION 



To make data as computer-independent as possible, the characteristics or 
properties of the data are described in relation to a standard data format 
rather than to an equipment-oriented format. This standard data format is 
oriented to general data processing applications and uses the decimal system to 
represent numbers and the remaining characters In the COBOL character set to 
describe nonnumeric data items. 



Logical Records and Files 

The approach taken in defining file information is to distinguish between 
physical aspects of the file and conceptual characteristics of data contained 
within the file. 



PHYSICAL ASPECTS OF A FILE 

The physical aspects of a file describe data as it appears on the input or 
output device and include such features as: 

• The grouping of logical records within the physical limitations of the 
file medium 

• The means by which the file can be identified 



CONCEPTUAL CHARACTERISTICS OF A FILE 

The conceptual characteristics of a file are the explicit definitions of 
each logical entity within the file itself. In a COBOL program, input and 
output statements refer to one logical record. A logical record is a group of 
related information, uniquely identifiable, and treated as a unit. A physical 
record is a physical unit of information whos^ size and recording mode are 
convenient to a particular input or output device for the storage of data. 
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Several source language methods are available for der.ct i bi hk i\\,- 
relationship of logical records and phyuieal tecords. When .1 |)fr mi as ibl e 
relationship has been established, control of the iccesaibil i ty of Jogical 
records as related to the physical unit must be provided by the interaction of 
the object program on the hardware and/or software system. In this manual, 
references to reco-'ds mean to logical records, unless physical record is 
specifically stated. 

The concept of a logical record is carried over into the definition of 
working storage. Thus, working storage may be grouped into logical records and 
defined by a series of record description entries. 

I RECORD CONCEPTS 

The record description consists of a set of data description entries that 
describe characteristics of a particular record. Each data description entry 
consists of a level-number followed by a data-name, if required, followed by a 
series of independent clauses, as required. 

I Concept of Levels 

A record may need to be subdivided for convenient data reference. The 
smallest subdivision is called an elementary item. A record can consist of a 
sequence of elementary items, or the record itself may be an elementary item. 

In order to refer to a set of elementary items, the elementary items can be 
combined into groups. Each group consists of a named sequence of one or more 
elementary items. Groups, in turn, may be combined. Thus, an elementary item 
may belong to more than one group. 

A system of level-numbers indicates the organization of elementary items 
and group items. Since records are the most inclusive data items, level-numbers 
for records start at 01. Less inclusive data items are assigned higher (though 
not necessarily successive) level-numbers not greater in value than t9. 
(Special level-numbers 66, 77, and 99 are exceptions to this rule; see below.) 
Separate entries are written in the source program for each level-number used. 
A group includes all group and elementary items following it until a 
level-number less than or equal to the level-number of that group is 
encountered. All items Immediately subordinate to a given group item must be 
described using identical level-numbers greater than the level-number used to 
describe that group Item. 

Three types of entries have no true level: 

9 Entries that specify elementary items or groups introduced by a 
RENAMES clause. Entries that describe Items using RENAMES clauses for 
the purpose of regrouping data items have been assigned the special 
level-number 66. 

• Entries that specify noncontiguous working-storage, constant, and 
linkage data Items. Entries that specify noncontiguous data items, 
which are not subdivisions of other items and are not themselves 
subdivided, have been assigned the special level-number 77. 

* Entries that specify condition-names. Entries that specify 
condition-names, to "be associated with particular values of a 
conditional variable, have been assigned the special level-number 88. 
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The fi 
alphabetic, 
alphabetic 
alphanumeric 
edited, and 
index data i 
The clttSs 
alphanumeric 
group item. 
data items. 



ve categories of data 

numeric, and alphanume 
and numeric, the class 
class includes the c 
alphanumeric (without edi 
tem belongs to one of the 

of a group Item at 
, regardless of the class 
Table 2-2 depicts the 



items are grouped into three classes: 
ric. (Refer to "PICTURE Clause.") For 
es and categories are synonymous. The 
ategoriss of alphanumeric edited, numeric 
ting). Every elementary item except an 

classes and also to one of the categories. 
object program execution is treated as 

of elementary items subordinate to that 
relationship of the class and categories of 



Table 2-2. Data Item Classes and Categories 



Level of Item 


Class 


Category 


Elementary 


Alphabetic 


Alphabetic 


Numeric 


Numeric 




Numeric Edi ted 




Alphanumeric 


Alphanumeric Edited 
Alphanumeric 






Alphabetic 






Numeric 


Nonelementary 


Alphanumeric 


Numeric Edited 


(Group) 




Alphanumeric Edited 
Alphanumeric 



COBOL Data TvpAs 

A data item can be represented internally in either character or binary 
form, depending upon the usage of the Item. (Refer to the "USAGE Clause" in 
Section VI and the "USAGE IS INDEX Clause" in Section VIII.) 

The size of an elementary data item or a group item is the number of 
characters in standard data format of the item. Synchronization and usage may 
cause a difference between this size and the actual number of characters 
required for the internal representation of data. 
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Data Allocation Rules 

Level 01 or level 77 data are allocated on a double word boundary. 
Non-elementary items are aligned on at least a byte boundary. The boundary 
requirement of an elementary item depends on the data type of the item. If the 
SYNCHRONIZED clause is not specified, the allocation is: 

Data Type Boundary Requirement 

Display byte 

Comp-7 (short biliary) half-word 

Comp-6 (long binary) word 

Comp-5 (packed decimal) byte 

Comp (packed decimal) byte 

Comp-8 (packed decimal) half-byte 

Index double-word 

The SYNCHRONIZED clause effects the allocation of only COMP-7 and COMP-8 
data. For C0MP-7( a full word is allocated with the data occupying the 
rightmost 18 bits, this is similar to PL/I fixed bin aligned. For COMP-8 data 
is allocated on a byte boundary left adjusted and occupies an integral number of 
bytes. 

The boundary requirement of a group item is the boundary requirement of the 
first elementary item contained in the group. 

Within a non-elementary table the second and subsequent occurrences of each 
item in the table is aligned at the same relative offset from a particular 
boundary as the first occurrence of the item. This boundary is determined as 
the most stringent boundary requirement of any item in the group item containing 
the OCCURS clause. 

For example, in the table: 
02 tabi occurs 3* 

03 X plo 99 eomp-5. 

03 y pic 999 comp-8. 

the most stringent boundary requirement is byte required by x. Thus, tabi is 
allocated: 

XX yy y- xx yy y- xx yy y 

The spaces Indicate byte boundaries. No word boundaries are shown as they are 
irrelevant. Actually, they would depend on the 02 data declaration that 
preceded tabi. 
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Consider: 

01 struct. 

02 tab2 occurs 3- 

03 X pic 9 display. 

03 y comp-6. 

Each array element in this case would be allocated identically relative to a 
word boundary. 

X yyyy x yyyy X yyyy 

Notice that this does not necessarily mean ON a word boundary. For example, 

01 struct 

02 w pic 999 display, 

02 tab3 occurs 3- 

03 X pic 9 display. 

03 y corap-6. 

struct is allocated 

wwwx yyyy x yyyy x yyyy 

Each element of tab3 is thus Identical relative to a word boundary (i.e., each 
has the identical byte offset of 3 from the word boundary). 

The following structure appears to occupy the same space. 
01 struct. 

02 w pic 999 display. 
02 tabM occurs 3. 

03 X pic 9 display. 
03 y comp-7. 
03 z comp-7. 

However, in this case the most stringent boundary requirement is half-word (for 
COMP-7). Thus, allocation is: 

wwwx yyzz -xyy zz-x yyzz 

In this case each element of tabi has an identical byte offset of 1 from the 
half word boundary. 
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All non-eXementary items are aligned on a byte bound. i y isicludlng non-elementary 
table Items. Thus, the declaration, 

02 X occurs 3. 

03 y pic 9 oomp-8. 

is allocated: 

y- y- y- 

whereas: 

02 y pic 9 comp-8 occurs 3. 
is allocated: 

yy y 

An observation diagnostic is issued if the allocation of an item is not 
directly contiguous to its predecessor or If unused bytes are allocated within 
elements of arrays (tables) as indicated by the hypen (-) in the above examples. 
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Algebraic signs fall into two categories: operational signs, which are 

associated with signed numeric data items and signed numeric literals to 

indicate their algebraic properties, and editing signs, which appear on edited 
reports to identify the sign of the item. 

The SIGN clause allows the location of the operational sign to be 

explicitly stated in a numeric DISPLAY item. The clause is optional; if it is 

not used, operational signs will be represented as defined by the USAGE clause 
of the Data Division. 

Editing signs are inserted into a data item by using the sign control 
symbols of the PICTURE clause. 



Standard Alignment Rules 

t 

Standard rules for positioning data within an elementary item depend on the 
category of the receiving item. These rules are: 

1. If the receiving data item Is described as numeric: 

a. The data is aligned by decimal point and is moved to the 
receiving character positions with zero-fill or truncation on 
either end, as required. 

b. When an assumed decimal point is not explicitly specified, the 
data item is treated as if it had an assumed decimal point 
immediately following its rightmost character with zero-fill or 
truncation to the left, as required. 

2. If the receiving data item is a numeric edited data item, the data 
moved to the edited data item is aligned by decimal point with 
zero-fill or truncation at either end as required within the receiving 
character positions of the data item, except where editing 
requirements cause replacement of the leading zeros. 

3. If the receiving data item is alphanumeric (other than a numeric 
edited data item), alphanumeric edited, or alphabetic, the sending 
data is moved to the receiving character positions and aligned at the 
leftmost character position in the data item with space-fill or 
truncation to the right, as required. 

If the JUSTIFIED clause is specified for the receiving item, these standard 
alignment rules are modified. (Refer to "JUSTIFIED Clause" in Section VI.) 
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Uniqueness of Reference 
QUALIFICATION 

Every user-specif ied name that defines an element in a COBOL source program 
must oe unique. The name can be considered unique because no other name has 
Identical spelling and hyphenation or because references to the name can be made 
unique by mentioning one or more of the higher levels of the hierarchy in which 
the name exists. The higher levels are called qualifiers, and the process that 
specifies uniqueness is called qualification. Enough qualification roust be 
mentioned to make the name unique; however, it may not be necessary to mention 
all levels of the hierarchy. Within the Data Division, all data-names used for 
qualification must be associated with a level indicator or a level-number. Two 
identical data-names must not appear as entries subordinate to a group item 
unless they can be made unique through qualification. In the Procedure 
Division, two identical paragraph-names must not appear in the same section, if 
they are explicitly referenced. 

In the hierarchy of qualification, names associated with a level indicator 
are the most significant, then those names associated with level-number 01, then 
names associated with level-number 02,..., U9. A section-name is the highest 
(and the only) qualifier available for a paragraph-name. Thus, the most 
significant name in the hierarchy must be unique and cannot be qualified. 
Subscripted or indexed data-names and conditional variables, as well as 
procedure-names and data-names, may be made unique by qualification. The name 
of a conditional variable can be used as a qualifier for any of its 
condition-names. Regardless of the available qualification, no name can be both 
a data-name and a procedure-name. 

Qualification is performed by following a data-name, a condition-name, a 
paragraph-name, or a text-name by one or more phrases composed of a qualifier 
preceded by IM or OF. (IM and OF are equivalent.) 
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The general formats for qualification are: 



Format 1 



{ data-name- 1 1 I f ££ 1 I I f fll 1 I 

f \\ ( data-name-2 I ••• I 1 I file-name I 

condition-name J LLniJ J LClfiJ J 



Format 2 : 



paragraph 



-name i i f 



Format ^ ; 



text-name 



section-name 



[{") 



library-name 



] 
] 



The rules for qualification are as follows: 

1. Each qualifier must be of a successively higher level and within the 
same hierarchy as the name it qualifies. 

2. The same name must not appear at two levels in a hierarchy. 

3. If a data-name or a condition-name is assigned to more than one data 
item in a source program, the data-name or condition-name must be 
qualified each time it is referred to in the Environment, Data, and 
Procedure Divisions (except in a REDEFINES clause, where qualification 
is unnecessary and must not be used). 

H. A paragraph-name must not be duplicated within a section, if it is 
explicitly referenced. When a paragraph-name is qualified by a 
section-name, the word SECTION must not appear. A paragraph-name need 
not be qualified when referred to from within the same section. 

5. A data-name being used as a qualifier cannot be subscripted. 

6. A name can be qualified even though it does not need qualification; if 
more than one combination of qualifiers ensures uniqueness, any such 
set can be used. The complete set of qualifiers for a data-name must 
not be the same as any partial set of qualifiers for another 
data-name. Qualified data-names may have up to 10 qualifiers. 
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SUBSCRIPTING 

Subscripts can be used only when reference Is made to an Individual element 
within a list or table of like elements that have not been assigned individual 
data-names. (Refer to "OCCURS Clause" and to "Table Handling" in Section VIII, ) 

The subscript can be represented either by a numeric literal that Is an 
Integer or by a data-name. The data-name must be a numeric elementary item that 
represents an integer. When the subscript is represented by a data-name, the 
data-name may be qualified but not subscripted. 

The subscript can be signed. If signed, it must be positive. The lowest 
possible subscript value is 1. This value points to the first element of the 
table. The next sequential elements of the table are pointed to by subscripts 
whose values are 2, 3, ••• . The highest permissible subscript value, in any 
particular case, is the maximum number of occurrences of the item as specified 
in the OCCURS clause. 

The subscript, or set of subscripts, that Identifies the table element is 
delimited by the balanced pair of parentheses following the table element 
data-name. The table element data-name appended with a subscript is called a 
subscripted data-name or an identifier. When more than one aubscrlpt is 
required, they are written in the order of successively l.ss inclusive 
dimensions of the data organization. 

The format is: 

(data-name ^ r _ - "1 

f ( subscript-1 I , subscript-2 T , subscript-3 J J ) 
condition-name J *• *- 
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INDEXING 

References can be made to individual elements within a table of like 
elements by specifying indexing for that reference. An index is assigned to 
that level of the table by using the INDEXED BY phrase in the definition of a 
table. A name given in the INDEXED BY phrase is known as an index-name and is 
used to refer to the assigned index. The value of an index corresponds to the 
occurrence number of an element in the associated table. An index-name must be 
initialized before it is used as a table reference. An index-name can be given 
an initial value by either a SET, a SEARCH ALL, or a Format 4 PERFORM statement. 

Direct indexing is specified by using an index-name in the form of a 
subscript. Relative indexing is specified when the index-name is followed by 
the operators + or -, followed by an unsigned integer numeric literal all 
delimited by the balanced pair of separators left parenthesis and right 
parenthesis following the table element data-name. The occurrence number 
resulting from relative indexing is determined by incrementing (where the 
operator + is used) or decrementing (when the operator - is used) by the value 
of the literal, the occurrence number represented by the value of the index. 
When more than one index-name is required, they are written in the order of 
successively less-inclusive dimensions of the data organization. 

When a statement that refers to an Indexed table element is executed, the 
value contained in the index referenced by the index-name associated with the 
table element must neither correspond to a value less than one (1) nor to a 
value greater than the highest permissible occurrence number of an element of 
the associated table. This restriction also applies to the value resulting from 
relative Indexing. 

The general format for indexing is: 

{data-name 1 J index-name- 1 rf*\ literal-2 "1 ^ 
condition-name J L literal-1 L L J J J 



[f index name-2 V f *\ literal-t "1 1 
• L llteral-3 L I " i J J 

r r index-name-3 P f ♦ "l literal-6 1 1 1 1 
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IDENTIFIER 



An identifier is a term used to reflect that a data-name (if not unique In 
a program) aust be followed by a syntactically correct coobination of 
qualifiers, subscripts, or indexes necessary to ensure uniqueness. 

The general formats for identifiers are: 



ft i r ■ ! M l AmlH^ft jK^M^jK * 



data-name- 1 



• name 



[o 



S f data-name-2 | • • • I 1 I fUe- 

subs<3ript-1 I , subscript-2 f , subscript-3 J J J I 



Foraat 2= 



data-name 



., [{j;} d.t.-n„.-2] ... [{j;} 



file-name 



] 



index-name- 1 
literal-1 



index-name-2 I 

literal-3 
r f 



l\' J literal-2 J 



{-} 



index-name 
literal-5 



literal-M J 
-3 L\- J literal-6 J 
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The restrictions on qualification, subscripting, and indexing follow: 

o A data-name must not be subscripted or indexed when it is being used 
as an index, subscript, or qualifier. 

o Indexing is not permitted where subscripting is not permitted. 

o An index may be modified only by the SET, SEARCH, and PERFORM 
statements. Data items described by the USAGE IS INDEX clause permit 
storage of the values associated with index-names as data. Such data 
items are called index data items. 

o Literal-1, literal-3, and llteral-5 in the above format must be 
positive numeric integers. Literal-2, literal-^*, and llteral-6 must 
be unsigned numeric Integers. 



CONDITION-NAME 

Each condition-name must be unique; it may be made unique through 
qualification and/or indexing or through subscripting. 

If qualification is used to make a condition-name unique, the associated 
conditional variable may be used as the first qualifier. If qualification is 
used, the hierarchy of names associated with the conditional variable or the 
conditional variable itself must be used to make the condition-name unique. 

If references to a conditional variable require indexing or subscripting, 
then references to any of its condition-names also require the same combination 
of indexing or subscripting. 

The format and restrictions on the combined use of qualification, 
subscripting, and indexing of condition-names are the same as those for 
"identifier," except that data-name-1 is replaced by condition-name-1 . 

In the general formats, condition-name refers to a condition-name 
qualified, indexed, or subscripted, as necessary. 



EXPLICIT AND IMPLICIT SPECIFICATIONS 

Three types of explicit and Implicit specifications occur in COBOL source 
programs: 

o Explicit and implicit Procedure Division references 
o Explicit and implicit transfers of control 
Explicit and implicit attributes 
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Procedure Division References 

A COBOL source program can reference data items either explicitly or 
implicitly in Procedure Division statements. An explicit reference occurs when 
the name of the referenced item is written in a Procedure Division statement or 
when the name of the referenced item is copied into the Procedure Division by 
the processing of a COPY statement. An implicit reference occurs when the item 
is referenced by a Procedure Division statement without the name of the 
referenced item being written in the source statement. An implicit reference 
also occurs during the execution of a PERFORM statement when the index or data 
item referenced by the index-name or identifier specified in the VARYING, AFTER, 
or UNTIL phrase is initialized, modified, or evaluated by the control mechanism 
associated with that PERFORM statement. Such an implicit reference occurs only 
if the data item contributes to the execution of the statement. 



Transfers of Control 

The mechanism that controls program flow transfers control from statement 
to statement in the sequence in which they were written in the source program 
unless an explicit transfer of control overrides this sequence or there is no 
next executable statement to which control can be passed. The transfer of 
control from statement to statement occurs without specifying an explicit 
Procedure Division statement and, therefore, is an implicit transfer of control. 

COBOL provides both explicit and implicit methods of altering the implicit 
control transfer mechanism. 

In addition to the Implicit transfer of control between consecutive 
statements, implicit transfer of control also occurs when the normal flow is 
altered without the execution of a procedure branching statement. COBOL 
provides the following types of implicit control flow alterations, which 
override the statement-to-statement transfers of control: 

• If a paragraph is being executed under control of another COBOL 
statement (e.g., PERFORM, USE, SORT, or MERGE) and the paragraph is 
the last paragraph in the range of the controlling statement, an 
implied transfer of control occurs from the last statement in the 
paragraph to the control mechanism of the last executed controlling 
statement. In addition, if a paragraph is being executed under 
control of a PERFORM statement that causes iterative execution and 
that paragraph is the first paragraph in the range of that PERFORM 
statement, an implicit transfer of control occurs between the control 
mechanism associated with that PERFORM statement and the first 
statement in that paragraph for each iterative execution of the 
paragraph . 

• When "Xijcution of any COBOL statement results in the execution of a 
declarative section, an Implicit transfer of control to the 
declarative section occurs. Another implicit transfer of control 
occurs after the declarative section is executed, as described above. 

• When a SORT or a MERGE statement is executed, an implicit transfer of 
control occurs to any associated input or output procedures. 
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An explicit transfer of control alters the implicit control transfer 
meohanism and can be caused only by the execution of a procedure branching or 
conditional statement. (Refer to "Categories of Statements" in Section 1.) 
Execution of the procedure branching ALTER statement does not in itself 
constitute an explicit transfer of control, but affects the explicit transfer of 
control that occurs when the associated GO TO statement is executed. The 
procedure branching EXIT PROGRAM statement causes an explicit transfer of 
control when the statement is executed in a called program. 

In this manual, the term "next executable statement" refers to the next 
COBOL statement to which control is transferred in accordance with the above 
rules and the rules associated with each language element in the Procedure 
Division. 

No executable statement follows the last statement either in a declarative 
section or in a program when the paragraph in which it appears is not being 
executed under the control of some other COBOL statement. 



ftt^tributes 

Attributes may be specified either explicitly or implicitly. If an 
attribute has not been specified explicitly, it assumes the default 
specification and is considered as an implicit attribute. For example, the 
usage of a data item need not be specified. In this case, the usage of the data 
item is uISfLAY. 
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REFERENCE FORMAT 



The reference format provides a standard method for describing COBOL source 
programs; it is defined in terms of character positions in a line. The COBOL 
compiler accepts source programs written In reference format and produces an 
output listing of the source program In reference format. Refer to the Multics 
iUiflfiL Users* fiuidfl for an alternate reference format for terminals. 

The rules for spacing given In the discussion of the reference format take 
precedence over all other rules for spacing. 

The divisions of a source program must be ordered as follows; the Control 
Division (optional), the Identification Division, then the Environment Division, 
then the Data Division, and then the Procedure Division. Each division must be 
written according to the rules specified for the reference format. 



REFEREMCS FORMAT REPRESENTATIOM 



The reference format for a line (character position, not print position) is 



*.Anv.AOAn^A/| oa f*dl.O^S! 



Margin 

L 



Margin 

C 



Margin 
A 



Sequence Number Area 



Margin 
B 



10 111 



Area A 



Indicator 
Area 



Margin 

R 



12 |13 



Area B 



line. 



Margin L is immediately to the left of the leftmost character position of a 

» 

Margin C is between character positions 6 and 7. 

Margin A is between character positions 7 and 8. 

Margin B is between character positions 11 and 12. 

Margin R is Immediately to the right of character position 256. 
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The sequence number area occupies six character positions (1-6) and is 
between margin L and margin C. 

The indicator area is character position 7 of a line. 

Area A occupies character positions 8, 9i 10, and 11 and is between margin 
A and margin B. 

Area B begins immediately to the right of margin B and terminates 
immediately to the left of margin R. 



gaauenee Numbers 

The sequence number can be used to label a source program line. The 
contents of the sequence number area are user-defined and can consist of any 
character in the host computer's character set. 



Continuation of Lines 

Whenever a sentence, entry, phrase, or clause requires more than one line, 
it can be continued by starting subsequent lines in Area B. These subsequent 
lines are called continuation lines. The line being continued is called the 
continued line. Any word or literal can be broken in such a way that part of it 
appears on a continuation line. 

A hyphen in the indicator area of a line indicates that the first nonblank 
oharacter in area B of the current line is the successor of the last nonblank 
character of the preceding line with no intervening space. However, if the 
continued line contains a nonnumerlc literal without a closing quotation mark, 
the first nonblank character in area B on the continuation line must be a 
quotation mark, and the continuation starts with the character immediately after 
that quotation mark. All spaces at the end of the continued line are considered 
part of the literal. Area A of a continuation line must be blank. 

If the indicator area of a continuation line contains no hyphen, the last 
character in the preceding line is assumed to be followed by a space. 



A blank line Is one that is blank from margin C to margin R. A blank line 
can appear anywhere in the source program, except immediately before a 
oontinuation line. (Refer to "Continuation of Lines" above.) 
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D IVISION, SECTION. AND PARAGR APH FORMATS 

The division header must start in area A. 

The section header must start in area A. A section consists of paragraphs 
in the Environment and Procedure Divisions and Data Division entries in the Data 
Division. 

A paragraph consists of a paragraph-name followed by a period and a space 
and by zero, one, or more sentences, or a paragraph header followed by one or 
more entries. Comment lines may be included within a paragraph. The paragraph 
header or paragraph-name starts in area A of any line following the first line 
of a division or a section. The first sentence or entry in a paragraph begins 
either on the same line as the paragraph header or paragraph-name or in area 3 
of the next nonblank line that is not a comment line. Successive sentences or 
entries begin either in area B of the same line as the preceding sentence or 
entry or in area B of the next nonblank line that is not a comment line. When 
the sentences or entries of a paragraph require more than one line, they may be 
continued as described in "Continuation of Lines" above. 



DATA DIVISION ENTRIES 

Each Data Division entry begins with a level indicator or level-number 
followed by a space, followed by its associated name, followed by a sequence of 
independent descriptive clauses. Each clause, except the last clause of an 
entry, may be terminated by either the separator semicolon or the separator 
comma. The last clause is always terminated by a period followed by a space. 
There are two types of Data Division entries: those that begin with a level 
indicator and those that begin with a level-number. 

Level indicators are FD, SO, and CD. In Data Division entries that begin 
with a level indicator, the level indicator begins in area A followed by a space 
and followed in area B with its associated name and appropriate descriptive 
information. 

Data Division entries that begin with a level-number are called data 
description entries. A level-number has a value taken from the set of values 1 
through 19, 66, 77, and 88. Level-numbers in the range 1 through 9 can be 
written either as a single digit or as a zero followed by a significant digit. 
At least one space must separate a level-number from the word following the 
level-number . 

In data description entries that begin with level-number 01 or 77, the 
level-number begins in area A followed by a space and followed in area B by its 
associated record-name cr it«m-name -?v.6 appropriate descriptive information. 

Successive data description entries may have the same format as the first 

or may be inder.tf-d according to level-number. Entries in the output listing are 

indented only if the input is indented. Indentation does not affect the 
magnitude of a level-number. 

When level-numbers are to be indented, each new level-number may begin any 
number of spaces to the right of margi". A. The extent of indentation to the 
right is limited only by the length of a line 
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DEC LARATIVE S 

The key words DECLARATIVES and END DECLARATIVFS precede and follow, 
respectively, the declarative portion of the Procedure Division. Each tet-m must 
appear as the only entries on a line, must begin In area A, and must be followed 
by a period and a space. 



COMMENT LINES 

A comment line is any line with an asterisk in the continuation indicator 
area of the line. A comment line can appear as any line in a source program 
after the Identification Division header. Any combination of characters from 
the ASCII character set may be included in area A and area B of that line. The 
asterisk and the characters in area A and area B will be produced on the output 
listing but serve as documentation only. 

A special form of comment line represented by a stroke (/) in the indicator 
area of the line causes page ejection prior to printing the comment. 

Successive comment lines are allowed. 



UPPERCASE/LOWERCASE OUTPUT 

Uppercase and lowercase letters do not affect the source listing. The user 
receives the source information exactly as written. However, in the 
cross-reference listing all user-words are translated to lowercase letters. 



SOURCE INPUT SEGMENT 

The source input to the compiler is from a Multics source segment. The 
segment is created by standard Multics facilities (the text editor edm or qedx 
commands, or from a card deck). It must have a name in the form name.cobol. 

Each line has a maximum length of 256 characters and is terminated by a 
newllne character. 

A newline character is invalid in a literal. If detected in a literal, it 
is treated as an end of line, and the next line must be a continuation line. 
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SECTION IV 
NOTATION USED IN FORMATS AND RULES 



This section contains descriptions of the rules of syntax applied in the 
language specifications of this manual. 



DEFINITION OF A GENERAL FORMAT 

A general format is the specific arrangement of the elements of a clause or 
a statement. A clause or a statement' consists of elements as defined below. In 
this manual, a format is shown adjacent to information that defines the clause 
or statement. If more than one specific arrangement is permitted, the general 
format is separated into numbered formats. Clauses must be written in the 
sequence given in the general formats. (If used, optional clauses must appear in 
the sequence shown.) In certain cases, stated explicitly in the rules associated 
with a given format, clauses can appear in sequences other than those shown. 
Applications, requirements, or restrictions are shown as rules. 



SYNTAX RULES 



A syntax rule is one that defines or clarifies the order in which words or 

elements are arranged to form larger elements such as phrases, clauses, or 

statements. Syntax rules also impose restrictions on individual words or 
elements. 

Syntax rules are used to define or clarify the exact manner in which the 
statement must be written; i.e., the order of the elements of the statement and 
the restrictions on what each element may represent. 



A general rule is one that defines or clarifies the raeanine; or relationship 
of meanings of an element or set of elements. It is used to define or clarify 
the semantics of the statement and the effect that it has on either compilation 
or execution. 
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ELEMENTS 



Elements are characters that make up clauses and statements. They comprise 
uppercase and lowercase words, level-numbers, brackets, braces, connectives, and 
special characters. 



Words 



Underlined uppercase words are key words that are required when the 
functions of which they are a part are used. Uppercase words that are not 
underlined are optional and may be included in the source program at the 
discretion of the user. Uppercase words, whether underlined or not, must be 
spelled correctly. 

In a general format, lowercase words are generic terms used to represent 
COBOL words, literals, PICTURE character-strings, comment-entries, or a complete 
syntactical entry that must be supplied by the user. If such generic terras are 
repeated in a general format, a number or letter appendage to the term serves to 
identify that term in a subsequent explanation or discussion. 



Level-Numbers 



Specific level-numbers appearing in data description entry formats are 
required when such entries are used in a COBOL program. In this manual, the 
convention 01, 02, ..., 09 indicates level-numbers 1 through 9. 



Brackets and Braces 



Portions of a general format e 
omitted at the user's choice. Bra 
format indicate that an option cont 
Choice indicators, {! !), enclosing 
selection of one or more of the opti 
must be made, but the same sequence o 
that entry or statement. In all cas 
in the format. When brackets or bra 
one possibility is shown, the functl 
that portion of the format to which 
next paragraph.) If braces enclose 
default option is implicitly selected 



nclosed in brack 
ces ( } enclos 
alned within th 
a portion of a 
ons contained w 
f words cannot 
es, possible cho 
ces enclose a po 
on of the brack 

a following el 
reserved words 

if no option is 



ets [ ] may 
ing a porti 
e braces mu 

general for 
ithin the ch 
be chosen mo 
ices are sta 
rtion of a 
ets or brace 
lipsis appl 
that are no 

explicitly 



be included or 
on of a general 
St be selected, 
mat mean that a 
oice indicators 
re than once in 
eked vertically 
format but only 
s is to delimit 
ies. (Refer to 
t key words, a 
indicated. 



Ellipsis 

In text, the ellipsis (...) implies the omission of a portion of a source 
program. The meaning becomes apparent in context. 

In the general formats, the ellipsis represents the position at which 
repetition may occur at the user's option. The portion of the format that can be 
repeated is determined as follows. 
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'om 
to 

, •- -r,- ohe 

ti.e determined pair of delimiters. 



Format Punctuati on Charant^ r-j. 

The punctuation characters comma and semicolon are shown in some formats. 
Where shown in the formats, they are optional and may be included or omitted in 
the coding. In the source program, these two punctuation characters are 
interchangeable and either one may be used when one of them is shown in the 
rormats. Neither character may immediately precede the first clause of an entry 
or paragraph. ' 

A comma or semicolon can be used to separate statements in the Procedure 
Division. 

Paragraphs within the Identification and Procedure Divisions and entries 
within the Environment and Data Divisions must be terminated by the separator 
period. 



Special Characters 

When the characters + - < > and = appear in formats, they are required 
when such formats are used, even though they are not underlined. 
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SECTION V 
CONTROL DIVISION 



DESCRIPTION OF THE CONTROL DTVy-^TOM 

The Control Division is optional and consists of the Default Section. When 
it is included in the source program, the Control Division must be the first 
division in the program, preceding the Identification Division. 

The Control Division allows specification of certain defaults other than 
the standard compiler defaults. 



STRUCTURE OF THE CONT ROL DIVISIQH 



The general format of the sections and clauses in the Control Division and 
their order of presentation in the source program is given below. 



General Format: 

|^J2££iULI fifiCUfiii. [default clauses] ... .J j 



The Default Section is optional and Is included only if the standard 
compiler default values require changing. 
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DISPLAY SIGN DISPLAY SIGN 



L ause 

The DISPLAY SIGN clause specifies the representation and position of the 
sign on each DISPLAY data item without requiring the explicit use of a SIGN 
clause. 



General Format: 

DISPLAY SIGN IS i > [ SfiEAMIE CHARACTER J 



Syntax Rules: 

1. The DISPLAY SIGN clause applies only to numeric data description 
entries whosie PICTURE contains an 'S' and whose usage is DISPLAY, 
explicitly or implicitly. 

2. The DISPLAY SIGN clause is not applicable to a numeric data 
description entry that has an implicit (at the group entry) or 
explicit SIGN clause associated with it. 



General Rules: 

1. The DISPLAY SIGN clause specifies the default sign convention for 
signed numeric DISPLAY data items to which no SIGN clause applies. 

2. If this clause is present, all rules specified under the SIGN clause 
in the Data Division apply to the explicit or implicit default option. 

3. If this clause is not specified, the sign is trailing and not 
separate. 
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COMPUTATIONAL 



COMPUTATIONAL 



COMPUTATIONAL Clause 



The COMPUTATIONAL clause allows the user to specify a default format for 
storing elementary data items in memory if the USAGE clause is omitted from the 
data description entry. 



General Format! 



i{ 



CO MP 



r DEFAULT FOR J < > IS < 

*- ' COMPUTATIONAL 



} 



DISPLAY 

COMP-5 

COMPUTATIONAL-5 

COMP-6 

COMPUTATIONAL-6 

COMP-7 

COMPUTATIONAL-? 

COMP-8 

COMPUTATIONAL-8 



I [[ DEFAULT for] £ NUMERIC LIMIT IS integer-1 ) I 



Syntax Rules; 



1. The value of integer-1 may range from 18 to 61 



General Rules; 



1 = 
2. 



3. 



If the NUMERIC LIMIT clause is not present, 30 is assumed. 

The NUMERIC LIMIT statement is used to specify the maximum precision 
for intermediate results of arithmetic operations. Integer indicates 
the nisnber of digits that are always maintained. If the length of the 
intermediate result exceeds this value, only that number of most 
significant digits is retained. 

Items in the Data Division having the USAGE IS COMPUTATIONAL clause 
will be interpreted as having usage as specified in the COMPUTATIONAL 
clause. 



10/77 



5-3 



AS^IA 



GENERATE DESCRIPTOR 



GENERATE DESCRIPTOR 



GENERATE DESCRIPTOR Clause 



The GENERATE DESCRIPTOR clause allows the user to specify if descriptors 
are needed, and what type of descriptors are needed, for arguments in the using 
list for CALL statements. 

This feature is needed when a more detailed description of the argument 

list is required by the called procedures. These called procedures are 

generally PL/I procedures that interface with, or support the COBOL procedure 
(caller ) . 



General Format: 



GENERATE 



fNO T 
< IgGREGATE > 

I SeALAft — J 



DESCRIPTORS 



Syntax Rule: 



1. The GENERATE DESCRIPTOR clause applies to the generation of 
descriptors for each argument specified on a CALL statement. 



General Rules; 



1. The GENERATE NO DESCRIPTORS results in the production of no 
descriptors for the argument list within the object code. 

2. If the GENERATE AGGREGATE DESCRIPTORS clause is specified, descriptors 
are generated for each argument, according to the rules described in 
the MPM Subsystem Writers' Guide . 

3. If no GENERATE DESCRIPTOR clause was specified or the GENERATE SCALAR 
DESCRIPTORS clause is specified, descriptors are generated for each 
argument. However, If an argument is a group item, then that argument 
Is treated as a character string type descriptor. 
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SECTION VI 
NUCLEUS OF HULTICS COBOL 



The nucleus of Multics COBOL provides the basic language capability for the 
internal processing of data. This section describes the Identification, 
Environment, and Data Divisions in the nucleus. The Procedure Division in the 
nucleus is contained in Section VII. 



IDENTIFICATION DIVISI ON FOR THE NUCLEUS 

The Identification Division must be included in every COBOL 3curce program. 
This division identifies both the source program and the resultant output 
listing. The user may also include the date on which the program is written, 
the date the compilation of the source program is accomplished, and other 
information as desired under the paragraphs shown in the general format. 

Paragraph headers identify the type of information contained in the 
paragraph. The program-name must be given in the PROGRAM-ID paragraph. The 
other paragraphs are optional and may be included at the discretion of the user, 
in the order of presentation shown in the general format. 



Structure of the J j^entification Division 

The general format of paragraphs in the Identification Division and their 
order of presentation in the source program are given below. 

General Format: 

IDENTIFICATION HUISIM' 
PROGRAH-ID . prograra-name. 



I AUTHOR , [corament-entryj * • • j 
[iHSTALLATJOM. [comment-entry] ...J 
[ DATE-WRITTEN, [comment-entry] ... J 
L DATE-CQMPILED. [comment-entry] ... J 
[ security , [comment-entry] ••• J 
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PROGRAM-ID PROGRAM-ID 



PRQGRAM-TP Paragraph 

The PROGRAM-ID paragraph gives the name by which a program is identified. 

General Format: 

PROGRAM-ID . program-name. 

Syntax Rules: 

1. The program-name must conform to the rules for formation of a 
user-defined word. (Refer to "User-Defined Words" in Section II.) 

General Rules: 

1 . The PROGRAM-ID paragraph must contain the name of the program and must 
be present in every program. 

2. The program-name identifies the listings and the object program, 

3. In Multics COBOL, program-name is an entry name. When referenced in a 
CALL or when invoked from a terminal, the program is referenced as 
object-name$program-name, where object-name is identical to the name 
of the source segment without the suffix ".cobol." If object-name and 
program-name are identical, the reference may be abbreviated to 
program-name; if they are different, the reference must include both 
names. For example, if the name of the source segment is Joe. cobol and 
the program-name is Sam, the program must referenced by the name 
Joe. SAM. 
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DATE-COMPILED 



DATE-COMPILED 



DATE-coMPTLEn p^irfiffrnnh 



The DATE-COMPILED paragraph provides 



Identification Division so^^^e^' p^^log.am iiaJLg: 



the compilation date in 



the 



General ForiBat: 



OATE-CQMPTI.RB. [comment-entry] 



Syntax Rules: 



1. 



The comment-entry can be any combinati 
computer's character set. The 



on of charac»-<.rs from the 



comment-entry may be contained on 



?nJ.'isi: o-:?LSrof ^ 2- :?!X/;, ± Jbis: - 



to 



General Rules: 



1. 



The paragraph-name DATE-COMPILED causes the current dafp fn h» 
- «-!:!:.:,:" -«e..souf:^e program, it is replaced durinc cooniiahinn ^^ ^v. 



a i^ai asf-apn oi tne rom: 



DATE-COMPILED. mm/dd/yy 
where: mm represents the month 

dd represents the day of the month 

yy represents the year 
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6NVIR0NMRNT DmSIQN FOR THE NUCLEUS 

The Environment Division provides a standard means for expressing those 
aspects of a data processing problem that depend upon the physical 
rnDnf^ °^ ^ specific computer. This division must be included in every 
LUHOL source program to specify the compiling and executing computers, must 
u'MUTDnMu^M,<^?"'^^^^°'*'^^°" Division, and must begin with the reserved words 
ENVIRONMENT DIVISION followed by a period and a space. 

The Configuration Section in the Nucleus describes source and obiect 
computer characteristics and is subdivided into three paragraphs: 

o SOURCE-COMPUTER paragraph, which identifies the computer on which the 
source program is to be compiled. 

o OBJECT-COMPUTER paragraph, which Identifies the computer on which the 
object program produced by the compiler is to be executed. 

o SPECIAL-NAMES paragraph, which associates hardware names and operating 
system features with the mnemonic-names used in the source program. 

Structure of the Rnvironmpnf. piYln1on 

The general format of sections and paragraphs in the Environment Division 
and their order of presentation in the source program are given below. 



General Format: 

ENVIROMMRMT £13^51^. 
CONFIGURATTOM SEdlflU. 

SOURCE-COMPUTRI^. source-computer-entry 
QBJECT-CQMPUTRB. object-computer-entry 
[SPECIAL-MAMRS. special-names-entry ] 

Configuration Sechlpp 

The Configuration Section provides program documentation for the hardware 
characteristics of the computer used for compilation and of the computer used to 
execute the object program. Provisions are included in this section for 
relating specific hardware and operating system features to user-specified 
mnemonic-names. 



Syntax Rules: 

1. The Configuration Section must be included, must follow the 
Environment Division header, and must begin with the section-name 
CONFIGURATION SECTION followed by a period and a space. 
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SOURCE-COMPUTER 

SOURCE-COMPUTER 



SOURCE-COMPUTER PARAGRAPH 

co«n.J»^ ^2!!!^^:?°I!^i!P'' P*'**«"Ph l" the configuration Section identifies th( 
computer upon which the program is to be compiled. 



General Format: 

SQURCE-fiOHPUTKR . [his-series-6o] ^mS} [with jimmiM im^ 

Syntax Rules: 



General Rules: 

1. This paragraph provides program documentation only and has no effect 
on compilation. 

2. Refer to SeAtinn TTTT fiW* a #lAa/%v*'lw4>4 am «^^ ^k.*. UTmtt rwnnrv^^'v^^ ^.^^^ 

clause. 
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OBJECT-COMPUTER 



OBJECT-COMPUTER 



OBJECT-COMPUTER PARAGRAPH 



The OBJECT-COMPUTER paragraph in the Configuration Section identifies the 
computer on which the program is to be executed, and specifies the collating 
sequence of the object program. 



General Format: 



OBJECT-COMPUTER. 



D 



HIS-SERIES 



_ / multics "X 

iS-eoJ \LEVEL-68J 



( WORDS 
characters ! 
H6&ULES ' 

[ , PROGRAM COLLATING SEQUENCE IS alphabet-name ] 



( WORDS 1 I 
CHARACTERS ^ I 
H6&ULES — J J 



Syntax Rules: 



The OBJECT-COMPUTER paragraph must begin with the paragraph-name 
OBJECT-COMPUTER followed by a period and a space. 

If the alphabet-name option of the PROGRAM COLLATING SEQUENCE phrase 
Is specified, alphabet-name must be defined in the SPECIAL-NAMES 
paragraph. 
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OBJECT-COMPUTER OBJECT-COMPUTER 



General Rules: 



1 . The MEMORY SIZE phrase is used for program documentation only and has 
no effect on the object program. 

2. If the PROGRAM COLLATING SEQUENCE phrase is specified, the collating 
sequence associated with alphabet-name is used to determine the truth 
value of any nonnumeric comparisons explicitly specified in relation 
conditions or in condition-name conditions, and the value of the 
figurative constants HIGH-VALUE and LOW-VALUE. 

3. If the PROGRAM COLLATING SEQUENCE phrase is not specified, the native 
(ASCII) collating sequence is used. 

H. If the PROGRAM COLLATING SEQUENCE phrase is specified, the collating 
sequence is that collating sequence associated with alphabet-name 
specified in that phrase. 

5. The PROGRAM COLLATING SEQUENCE phrase is also applied to any 
nonnumeric sort or merge keys unless the COLLATING SEQUENCE phrase of 
the SORT or MERGE statement is specified. 

6. The PROGRAM COLLATING SEQUENCE phrase applies only to the program in 
which it is specified. 



f, 7 AS44A 

10/77 °-' 



SPECIAL-NAMES 



SPECIAL-NAMES 



SPECIAL-NAMES PARAGRAPH 



The SPECIAL-NAMES paragraph in the Configuration Section provides a means 
of relating specific hardware and operating system features to user-specified 
mnemonic-names and of relating alphabet-names to character sets and/or collating 
sequences. 



General Format: 



SPECIAL-NAMES. 



, SYSIN IS mnemonic-name-1 J f , SYSOUT IS ranemonic-name-2 J 
, CONSOLE IS mnemonic-name-3 J F , HOF IS mnemonic-name-t J 
, CHANNEL-m IS mnemonic-name-5 J 

IS mnemonic-name-6 L » 211 STATUS IS condition-name-1 
f , OFF STATUS IS condition-name-2 ] J 

IS mnemonic-name-6 L i OFF STATUS IS condition-name-2 
|[ , ON STATUS IS condition-name-1 ] J 



SWITCH-n 



ON STATUS IS condition-name-1 

r , OFF STATUS IS condition-name-2 ] 
OFF STATUS IS condition-name-2 

r , ON STATUS IS condition-name-1 J 



, alphabet-name IS 



STANDARD-1 

fflTTVg 

ASCII 
EBCDIC 

literal- 



[ fTHROUGHX literal-2 "I 

Uriftu J 
ALSO literal-3 [, ALSO literal-'*] .. J 

[/tHROUGHX literal-6 "I 

uHru J 
ALSO literal-? [, ALSO literal-s] . . J 
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SPECIAL-NAMES SPECIAL-NAMES 



L , CURRENCY SIGN IS literal-9 [oBJECT SIGN IS literal-ioj J 



DECIMAL-POINT 



{ COMMA ^ I fcOMMA '\ I I 

> I OBJECT IS I > I I 

pECIMAL-POIHTj L LdECIMAL-POINtJ J I 



Syntax Rules: 



1. Literals specified in the literal phrase of the alphabet-name clause: 

a. If numeric, must be unsigned integers and must be have a value 
within the range 1 through 128, the maximum number of characters 
in the ASCII character set. 

b. If nonnumeric and associated with a THROUGH or ALSO phrase, must 
each be one character in length. 

2. If the literal phrase of the alphabet-name clause is specified, a 
given character must not be specified more than once in an 
alphabet-name clause. 

3. The words THROUGH and THRU are equivalent. 

4. Litersl-9 must be a one-character nonnumeric literal. 

5. Literal-10 must be a nonnumeric literal less than four characters in 
length. 

6. In SUITCH-n, the value n must be in the range and must be 1 through 8. 

7. In CHANNEL-a, the value m must be in the range and must be 1 through 
16. 
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SPECIAL-NAMES SPECIAL-NAMES 



General Rules; 



1. Mnemonic-name-1 , associated with SYSIN, can be used only in an ACCEPT 
statement, in which case it specifies that data is to be accepted 
(read) from the I/O switch U3er_input, usually attached to the user's 
terminal . 

2. Mnemonic-name-2, associated with SYSOUT, can be used only in a DISPLAY 
statement, in which case it specifies that data is to be displayed 
(written) on the I/O switch user_output, usually attached to the 
user' s terminal . 

3. Mnemonic-name-3, associated with CONSOLE, can be used only in an 
ACCEPT or DISPLAY statement, in which case it specifies that data is 
either to be accepted (read) from the I/O switch userinput or 
displayed (written) to the I/O switch error_output ; both switches are 
usually attached to the user's terminal. 

'4. Hnemonic-name-l , associated with HOF, and mnemonic-name-5 , associated 
with CHANNEL-m, can be used only in a WRITE or SEND statement within 
the BEFORE or AFTER phrase. CHANNEL-m indicates one of the printer 
control channels, where m may be a value from 1 to 16. The meaning of 
the various channels is site defined. 

5. The external switches are represented by the specification of 
SWITCH-n, where n may be a value from 1 to 8. If SWITCH-n is 
specified, at least one condition-name must be associated with it. The 
status of the switch is specified by condition-names and interrogated 
by testing the condition-names. (Refer to "Switch-Status Condition" 
in Section VII.) 

6. Mneftionic-name-6 is associated with the name of an external switch (not 
the condition of that switch). It can be set only by the SET 
statement. (Refer to "SET Statement" in Section VII.) 

7. The alphabet-name clause provides a means for relating a name to a 
specified character code set and/or collating sequence. When 
alphabet-name is referenced in the PROGRAM COLLATING SEQUENCE clause 
(refer to "OBJECT-COMPUTER Paragraph" in this section) or the 
COLLATING SEQUENCE phrase of a SORT statement (refer to Section X), 
the alphabet-name clause specifies a collating sequence. When 
alphabet-name is referenced in a CODE-SET clause in a file description 
entry (refer to "File Description - Complete Entry Skeleton" in 
Section IX), the alphabet-name clause specifies a character code set. 

a. If the STANDARD-1 phrase is specified, the character code set or 
collating sequence identified is that defined in American 
National Standard X3.'»-1968, Code for Information Interchange. 

b. NATIVE and ASCII are synonymous with STANDARD-1. 

c. If the EBCDIC phrase is specified, the character code set or 
collating sequence identified is that defined by EBCDIC, 
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SPECIAL-NAMES 



SPECIAL-NAMES 



d. If the literal phrase is specified, the alphabet-name may not be 
referenced in the CODE-SET clause. (Refer to "CODE-SET Clause" in 
Section IX.) The collating sequence identified is that defined 
according to the following rules: 

1) The value of each literal specifies: 

o The ordinal number of a character within the ASCII 

character set, if the literal is numeric. This value 

must not exceed 128, the value of the number of 
printable ASCII characters. 

o The actual character within the ASCII character set, if 
the literal is nonnumeric. If the value of 'the 
nonnumerlc literal contains multiple characters, each 
character in the literal, starting with the leftmost 
character, is assigned successive ascending positions 
in the collating sequence being specified. 



2) 



The order in which the literals appear in the alphabet-name 
clause specifies, in ascending sequence, the ordinal number 
of the character within the collating sequence being 
specified. ^ 



3) Any characters within the ASCII collating sequence, which 
are not explicitly specified in the literal phrase, assume a 
position, in the collating sequence being specified, greater 
than any of the explicitly specified characters. The 
relative order within the set of these unspecified 
characters is unchanged from the ASCII collating sequence. 

4) If the THROUGH phrase is soecified. the set of ^onH<Tnn>,c 
characters in the ASCII character set beginning with the 
character specified by the value of literal-1, and ending 
with the character specified by the value of literal-2, is 
assigned a successive ascending position in the collating 
sequence being specified. In addition, the set of contiguous 
characters specified by a given THROUGH phrase may specify 
characters of the ASCII character set in either ascending or 
descending sequence. 

5) If the ALSO phrase is specified, the characters of the 
native character set specified by the value of literal-1, 
llteral-3, literal-M, . , . , are assigned to the same position 
in the collating sequence being specified. 

8. The character that has the highest ordinal position In the program 
collating sequence specified is associated with the figurative 
constant HIGH-VALUE. If more than one character has the highest 
position in the program collating sequence, the last character 
specified is associated with the figurative constant HIGH-VALUE. 

9. The character that has the lowest ordinal position in the program 
collating sequence specified is associated with the figurative 
constant LOW-VALUE. If more than one character has the lowest position 
in the program collating sequence, the first character specified is 
aaaociated with the figurative constant LOW-VALUE. 
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10. The literal which appears in the CURRENCY SIGN IS literal clause is 

used in the PICTURE clause to represent the currency symbol. The 

literal is limited to a single character and must not be one of the 
following: 

a. Digits through 9 

b. Alphabetic characters A, B, C, D, L, P, R, S, V, X, Z, a thru z, 
or the space. The characters must be in uppercase, even though 
corresponding characters in the picture can be in either 
uppercase or lowercase. 

c. Special characters •+-,.;()"/ or = 

n. The DECIMAL-POINT IS COMMA clause indicates that the functions of the 
comma and the period are exchanged in the character-string of the 
PICTURE clause and in numeric literals. For example, the symbol used 
for the decimal point is the comma; otherwise, the period is used. 
(Refer to "Numeric Literals" in Section II and to "PICTURE Clause" in 
this section for further information.) 

12. If the CURRENCY clause is not present, only the currency sign ($) is 
used in the PICTURE clause. 

NOTE: The currency sign on the computer's printer usually changes 
from country to country. 

13. Literal-9 defines the SOURCE program representation; literal-10 
represents the object program representation. 

T*. If not otherwise specified, the following are assumed: 

a. CURRENCY SIGN IS "$" OBJECT SIGN IS "$" 

b. DECIMAL-POINT IS DECIMAL-POINT. OBJECT IS DECIMAL-POINT. 

15. When the CURRENCY SIGN and DECIMAL-POINT clauses are specified and no 
OBJECT clause is specified, it is assumed to be the same as the source 
program character. 

16. The CURRENCY SIGN and DECIMAL-POINT clauses affect editing at object 
time. 
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The Data Division describes the data that the object program is 
as input, to manipulate, to create, or to produce as output. 



to accept 



The Working-Storage Section in the Nucleus describes records and 
noncontiguous data items that are not part of external data files but are 
developed and processed internally. The Constant Section is used to describe 
A^l^ lu^ whose values are assigned in the source program and do not change 
during the execution of the object program. 



Structure of tt^a Dq^-,;^ Division 

The Data Division is prepared in accordance with the reference formav 
described in Section III. The Data Division is identified by and must begin 
with the division header DATA DIVISION followed by a period and a space. The 
general format of the Data Division in the Nucleus is given below. 



General Format: 



MIA IJIlLSIfiH. 

WOBKING-STOPAQE. S££IIQll. 

77-Level-descrlption-entry 
. record-description-entry 






CONSTANT SECT^QH. 



[ 



77-level-descript ion-entry 
record-descrlpt ion-entry 



'] 



Working-Storage Sectior^ 

The Working-Storage Section is composed of the section header, followed by 
data description entries for noncontiguous data items or record description 
entries. Each Working-Storage Section record-name and noncontiffuou? item na'm« 
must be unique since it cannot be qualified. Subordinate data-names need not be 
unique if they can be made uniaue by qualification. 
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NONCONTIGUOUS WORKING-STORAGE 

Items and constants in working-storage that bear no hierarchical 
relationship to one another need not be grouped into records, provided they do 
not need to be further subdivided. Instead, they are classified and defined as 
noncontiguous elementary items. Each of these items is defined in a separate 
data description entry which begins with the special level-number 77. 

The following data clauses are required in each data description entry: 

o Level-number 77 

o Data-name 

o The USAGE IS INDEX, COMP-6, or COMP-7 clause or the PICTURE clause 

Other data description clauses are optional and can be used to complete the 
description of the item, if necessary. 



WORKING-STORAGE RECORDS 

Data elements and constants in working-storage that bear a definite 
hierarchic relationship to one another must be grouped into records according to 
the rules for formation of record descriptions. All clauses which are used in 
record descriptions in the File Section can be used in record descriptions in 
the Working-Storage Section. 



WORKING-STORAGE INITIAL VALUES 

The initial value of any data item in the Working-Storage Section except an 
index data item is specified by using the VALUE clause with the data item. The 
initial value of any index data item is unpredictable. 



Constant SeotlQn 

The Constant Section is like the Working-Storage Section except that in the 
Constant Section: 

o All data must have a VALUE clause. 

NOTE: Because of the REDEFINES and RENAMES clauses, a VALUE clause 
must be used with every data item, not with every data 
description. 

o The items can be referenced only where literals can be referenced; 
that is, their contents cannot be altered during program execution. 

o The USAGE IS INDEX clause may not be used. 

o The OCCURS clause may not be used. 
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DATA DESCRIPTION 
SKELETON 



Bata Descrintlon - r.omplfttft Kn trv skeleton 

A data description entry specifies the characteristics of a particular item 
of data. A detailed data description consists of a set of entries and each 
entry defines the characteristics of a particular unit of data. The general 
formats of the detailed data description entry, syntax rules, and general rules 
follow. The individual clauses are described later in this section. 



Format 1. 



level-number 



(data-name- lT 
FILLER J 

[ ; REDEFINES data-name-2 ] 

( picture^ 



IS character-string 



] 



DISPLAY 

CQHPUTATIQNAL 
CQMP 

COHFUTATIONAL-S 
r 1 J CQHP-5 

; 1 lifiAflE IS I ' CQHPUTATIOWftL-6 

-• CQHP-6 

CQHPmATIQNAL-7 
CO H P- 7 

CQMPUTATIQWAL-8 
CQMP-8 

; ISIfiH ISJ \ I [ separate CHARACTER! 



r fsYHCHRQNIZBpl [lEEI "I -j 



•^J 



fjUSTIFIEpl I 



£ ; BLANK WHEN ZERO J 
[ ; IhUm IS literal ] 
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DATA DESCRIPTION 
SKELETON 



DATA DESCRIPTION 
SKELETON 



Format 2: 



66 data-name-1 ; RENAMES data-name-2 



Format ^: 



fiMQIifiiri 

1 f data-name-3 I 



88 condition-name 



fitALilE isl 
OMES ArJ 



I frHROUGH 



literal-1 \ f literal 



'1 1 

} literal-2 



, literal-3 



1 { literal-1 I 



Syntax Rules: 



1. The level-number in Format 1 can be any number from 01 to ^9 or 77. 

2. The clauses can be written in any order with two exceptions: the 
data-name-1 or FILLER clause must immediately follow the 
level-number; the REDEFINES clause, when used, must immediately 
follow the data-name-1 clause. 

3. The PICTURE clause must be specified for every elementary data item 
except an index data item, in which case the use of this clause is 
prohibited. 

4. The words THRU and THROUGH are equivalent. 
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DATA DESCRIPTIOK DATA DESCRIPTION 

SKELETON SKELETON 



General Rules: 

1. The SYNCHRONIZED, PICTURE, JUSTIFIED, and BLANK WHEN ZERO clauses must 
not be specified except for an elementary data item. 

2. Format 3 is used for each condition-name. Each condition-name 
requires a separate entry with level-number 88. Format 3 contains the 
name of the condition and the value, values, or range of values 
associated with the condition-name. The condition-name entries for a 
particular conditional variable must follow the entry describing the 
item with which the condition-name is associated. A condition-name 
can be associated with any data description entry that contains a 
level-number except the following: 

o Another condition-name 

o A level 66 item 

o A group containing items with descriptions including JUSTIFIED, 
SYNCHRONIZED, or USAGE (other than USAGE IS DISPLAY) 

o An index data item (Refer to "USAGE Clause" in Section VIII. ) 
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BLANK WHEN ZERO BLANK WHEN ZERO 



BLANK WHEN ZERO CLAUSE 

The BLANK WHEN ZERO clause permits the blanking of an item when its value 
is zero. 



General Format: 

BLANK WHEN ZEEQ. 

Syntax Rules: 

1 . The BLANK WHEN ZERO clause can be used only for an elementary data 
item whose PICTURE is specified as numeric or numeric edited. 

2. This clause cannot be used with variable-length items. 

General Rules: 

1. When the BLANK WHEN ZERO clause is used, the item will contain nothing 
but spaces if the value of the item is zero. 

2. When the BLANK WHEN ZERO clause is used for an item whose PICTURE is 
numeric, the category of the item is considered to be numeric edited. 
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DATA-NAME OR FILLER CLAUSE 

iTTi.r.* ^^'^^-n^"® clause specifies the name of the data being described. The 
FILLER clause specifies an elementary item of the logical record that cannot be 
referred to explicitly. 



General Format: 



level-number 



Syntax Rules: 



{data-name*! 
FILLER J 



In the File Section, Working-Storage Section, Linkage Section, 
Communication Section, and Constant Section, a data-name or the key 
word FILLER must be the first word following the level-number in each 
data description entry. 



General Rules: 



t. The key word FILLER may be used to name an elementary item in a 
record. Under no circumstances can a FILLER item be referred to 
explicitly. However, the key word FILLER may be used as a conditional 
variable because such use does not require explicit reference to the 
FILLER data item, but to its value. 
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JUSTIFIED CLAUSE 

The JUSTIFIED clause specifies nonstandard positioning of data within a 
receiving data item. 



General Format: 



fjUSTIFIEpl 



RIGHT 



Syntax Rules: 



1. The JUSTIFIED clause can be specified only at the elementary item 
level. 

2. JUST is an abbreviation for JUSTIFIED. 

3. The JUSTIFIED clause cannot be specified for any data item described 
as numeric or for which editing is specified. 



General Rules: 



1 . When a receiving data item is described with the JUSTIFIED clause and 
the sending data item is larger than the receiving data item, the 
leftmost characters are truncated. When the receiving data item is 
described with the JUSTIFIED clause and it is larger than the sending 
data item, the data is aligned at the rightmost character position in 
the data item with space-fill for the leftmost character positions. 

2. When the JUSTIFIED clause is omitted, the standard rules for aligning 
data within an elementary item apply. Refer to "Standard Alignment 
Rules" in Section II. 
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level-number , , ^ 

level-number 



LEVEL-NUMBER 



^AA,J4^^ level-number shows the hierarchy of data within a logical record. In 
rtoJi 1?2:, r** 1?"? c° Identify entries for working-storage data items, linkage 
data items, Constant Section, condition-names, and the RENAMES clause. 

General Format: 

level-nunber 

Syntax Rules: 

1. A level-number is required as the first element in each data 
description entry. 

2. Data description entries subordinate to an FD, SD, or CD entry must 
have level-numbers with the values 01 through U9 , 66, or 88. 

3. Data description entries in the Working-Storage Section, Constant 
Section, and Linkage Section must have level-numbers with the values 
01 through 49, 66, 77, or 88. 



General Rules s 

1. The level-number 01 Identifies the first entry in each record 
description. 

2. Special level-numbers have been assigned to certain entries where 
there is no real concept of level: 

a. Level-number 77 is assigned to identify noncontiguous 
working-storage and Constant Section data items, noncontiguous 
linkage data items, and must be used only as described in Format 
1 of the data description skeleton. 

b. Level-number 66 is assigned to identify RENAMES entries and must 
be used only as described in Format 2 of the data description 
skeleton. 

e. Level-number 88 is assigned to entries which define 
condition-names associated with a conditional variable and must 
be used only as described in Format 3 of the data description 
skeleton. 

3. Multiple level 01 entries that are subordinate to any given level 
indicator represent implicit redefinitions of the same area. 
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PICTURE CLAUSE 

The PICTURE clause describes the general charactepistics and editing 
requirements of an elementary item. 



General Format: 



TzkimeI 



IS character-string 



Syntax Rules: 



1. A PICTURE clause may be specified only at the elementary item level. 

2. The character-string consists of certain allowable combinations of 
characters in the COBOL character set used as symbols. The allowable 
combinations determine the category of the elementary item. 

3. The maximum number of characters allowed in the character-string is 
30. 

U, The PICTURE clause must be specified for every elementary data item 
except an index data item, or a data item with USAGE IS COHP-6 or 
COMP-7, in which case use of this clause is prohibited. 

5. PIC is an abbreviation for PICTURE. 

6. The asterisk, when used as the zero suppression symbol and the BLANK 
WHEN ZERO clause may not appear in the same entry. 



General Rules: 

1 Five categories of data may be described with a PICTURE clause; 
alphabetic, numeric, alphanumeric, alphanumeric edited, and numeric 
edited. 

o To define an item as alphabetic: 

a. Its PICTURE character-string can contain only the symbols 
•A', 'B'; and 

b Its contents when represented in standard data format must 
be any combination of the 26 letters (either uppercase or 
lowercase) of the Roman alphabet and the space from the 
COBOL character set. 
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To define an Item as numeric: 

a. Its PICTURE character-string can contain only the symbols 
»9«, "p", 'S', and 'V. The number of digit positions that 
can be described by the PICTURE character-string must range 
from 1 to 18 inclusive; and 

b. If unsigned, Its contents when represented in standard data 
format must be a combination of the Arabic numerals '0', 
•1', 'S', '3', 'J4', '5', '6', '7', 'S', and '9'; if signed, 
the item can also contain a •+', '-'. 

To define an item as alphanumeric: 

a. Its PICTURE character-string is restricted to certain 
combinations of the symbols 'A', 'X', '9', and the item is 
treated as if the character-string contained all 'X's. A 
PICTURE character-string which contains all 'A's or all '9's 
does not define an alphanumeric item; and 

b. Its contents when represented in standard data format are 
allowable characters in the computer's character set. 

To define an item as alphanumeric edited: 

a. Its PICTURE character-string is restricted to certain 
combinations of the following symbols: 'A', 'X', '9', 'B', 
•0', '/•; and 

(1) The charaeter-string must contain at least one 'B' and 
at least one 'X'" or at least one '0' (zero) and at 
least one 'X' or at least one •/• (stroke) and at least 
one 'X' ; or 

(2) The character-string must contain at least one '0' 
(zero) and at least one 'A* or at least one '/• 
(stroke) and at least one 'A'; and 

b. The contents when represented in standard data format are 
allowable characters In the computer's character set. 

To define an item as numeric edited: 

a. Its PICTURE charaeter-string is restricted to certain 
combinations of the symbols 'B', '/', 'P', 'V, '2', '0', 
'9', '.', '.'. '•'. '♦'. '-'. 'CR', 'DB', and the currency 
symbol. The allowable combinations are determined from the 
order of precedence of symbols and the editing rules; and 

(1) The number of digit positions that can be represented 
in the PICTURE character-string must range from 1 to 18 
inclusive; and 

(2) The character-string must contain at least one '0', 
•B', •/', 'Z', ••', •+', ',', '.', •-', 'CR', 'DB', or 
currency symbol. 

. b. The contents of the character positions of these symbols 
that are allowed to represent a digit in standard data 
format must be one of the numerals. 
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PICTURE 



2. The size of an elementary item, 
character positions occupied by 
format, is determined by the 
represent character positions, 
parentheses following the symbols 



'B' 



'/• 



or the 



of consecutive occurrences of the 
symbols can appear only once in a 
and 'DB'. 



where size means the number of 
the elementary item in standard data 
number of allowable symbols that 

An integer which is enclosed in 

l«l II IVI IQI ipl 171 Itt 
«l 11*1 ~l'» ''I > 

currency symbol indicates the number 
symbol. Note that the following 
given PICTURE: 'S', 'V, '.', 'CR', 



The functions of the symbols used to describe an elementary 
explained as follows: 



item are 



Each 'A' in the character-string represents a character 
position which can contain only a letter of the alphabet 
or a space. 

Each 'B' in the character-string represents a cl aracter 
position into which the space character will be i.iserted. 

Each 'P' indicates an assumed decimal scaling position 
and is used to specify the location of an assumed decimal 
point when the point is not within the number that 
appears in the data item. The scaling position character 
*P* is not counted in the size of the data item. Scaling 
position characters are counted in determining the 
maximum number of digit positions (18) in numeric edited 
items or numeric items. The scaling position character 
'P' can appear only to the lef.t or right as a continuous 
string of 'P's within a PICTURE description. Since the 
scaling position character 'P' implies an assumed decimal 
point (to the left of 'P's If 'P'a are leftmost PICTURE 
characters and to the right if 'P's are rightmost PICTURE 
characters), the assumed decimal point symbol 'V is 
redundant as either the leftmost or rightmost character 
within such a PICTURE description. The character 'P' and 
the insertion character '.' (period) cannot both occur in 
the same PICTURE character-string. If, in any operation 
involving conversion of data from one form of internal 
representation to another, the data item being converted 
is described with the PICTURE character 'P', each digit 
position described by a 'P' is considered to contain the 
value zero, and the size of the data item is considered 
to include the digit positions so described. 

The letter 'S* is used in a character-string to indicate 
the presence, but not the position of an operational 
sign; it must be written as the leftmost character in the 
PICTURE. The 'S' is counted In determining the size (in 
terms of standard data format characters) of the 
elementary item. 

The 'V is used in a character-string to indicate the 
location of the assumed decimal point and may only appear 
once in a character-string. The 'V does not represent a 
character position and therefore is not counted in the 
size of the elementary item. When the assumed decimal 
point is to the right of the rightmost symbol in the 
string, the '¥' is redundant. 
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X Each 'X' in the character-string is used to renngse'"- a 
?nom^fK®'' position which contains any allowable character 
from the computer's character set. 

Z Each 'Z* in a character-string can only be used to 
nn^r^fonc J^^ leftmost leading numeric character 
Shfn ?hf "''^'^^ "l^^ ^^ replaced by a space character 
P^oh .7^ 4 contents of that character position are zero. 
Each 'Z' is counted in the size of the item. 

^ n«o?f!^' ^""J^t character-string represents a character 
position which contains a numeral and is counted in the 
size of the item. 

Each -0' (zero) in the character-string represents a 
character position into which the numeral zero will be 
inserted. The '0' is counted in the size of the item. 

/ Each •/• (stroke) in the character-string represents a 
character position into which the stroke character will 
be inserted. The '/• is counted in the size of the item. 

, Each ',' (comma) in the character-string represents a 
character position into which the character ■,' will be 
inserted. This character position is counted in the size 
or the item. The insertion character ',' roust not be the 
last character in the PICTURE character-string. 

When the character '.' (period) appears in the 
character-string, it is an editing symbol which 
^n^''!^H"^f decimal point for alignment purposes and, 
in addition, reprcaeuts a character position Into which 
the character '.' will be inserted. The character ' ' is 
counted in the size of the item. For a given program, 
the functions of the period and comma are exchanged if 
the DECIMAL-POINT IS COMMA clause is stated in the 
SPECIAL-NAMES paragraph. In this exchange, the rules for 
the period apply to the comma and the rules for the comma 
apply to the period wherever they appear in a PICTURE 
clause. The insertion character '.' must not be the last 
character in the PICTURE character-string. 

+ - CR DB These symbols are used as editing sign control symbols. 
When used, they represent the character position into 
which the editing sign control symbol will be placed. 
The symbols are mutually exclusive in any one 
character-string and each character used in the symbol is 
counted in determining the size of the data item. Both 
CR and DB, after editing, will appear in uppercase 
letters in the receiving data item. 

* Each '•' (asterisk) in the character-string represents a 
leading numeric character position into which an asterisk 
will be placed when the contents of that position are 
zero. Each ••• is counted in the size of the item. 
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cs The currency symbol in the character-string represents a 
character position into which a currency symbol is to be 
placed. The currency symbol in a character-string is 
represented by either the currency sign or by the single 
character specified in the CURRENCY SIGN clause in the 
SPECIAL-NAMES paragraph. The currency symbol is counted 
in the size of the item. 

Any character appearing in a picture, that is either not one of the 
above-defined symbols or is in violation of precedence rules (see 
below) is treated as a simple insertion editing character. For 
example, 

01 X pic 99:99. 
move 123 to x. 
— > 01:23- 
NOTE: This is an extension to ANS C0B0L-7»» define pictures. 



Editing Rules; 



Two general methods are used to perform editing in the """J^ clause 
either by insertion or by suppression and replacement. The four types 
of insertion editing are: 

• Simple insertion 

• Special insertion 

• Fixed insertion 

• Floating insertion 

The two types of suppression and replacement editing are: 

• Zero suppression and replacement with spaces 

• Zero suppression and replacement with asterisks 

ThA twne of editinR that may be performed upon an item depends on the 
IStegJ?y Jo iiicS tSritem belongs. The following list indicates 
which type of editing may be performed upon a given category: 

Category Type of Editing 

Alphabetic Simple insertion 'B' only 

Numeric "one 

Alphanumeric "one 

Alphanumeric Edited Simple ^""'ftion '0' 'B , and / 
Numeric Edited All, subject to the restrictions 

of Rule 3 below 
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3. Floating insertion editing and editing by zero suppression and 
replacement are mutually exclusive in a PICTURE clause. Only one type 
of replacement may be used with zero suppression in a PICTURE clause. 

4. Simple Insertion Editing. 

The ',' (comma), 'B' (space), '0' (zero), and '/' (stroke) are used as 
the insertion characters. The insertion characters are counted in the 
size of the item ana represent the position in the item into which the 
character is Inserted. Any other character not having special meaning 
in the PICTURE character-string is treated as a simple insertion 
character. An observation diagnostic is issued in this case, since 
this is an extension of ANS COBOL-TU. 
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5. Special Insertion Editing. 



The ' . • 
represents 
character 
the item, 
symbol 'V 
character, 
result of 
character 
character- 



(period) is used as the Insertion character and also 

the decimal point for alignment purposes. The insertion 

used for the actual decimal point is counted in the size of 

The use of the assumed decimal point, represented by the 

, and the actual decimal point, represented by the insertion 

in the same PICTURE character-string is not allowed. The 

special insertion editing is the appearance of the insertion 

in the item in the same position as shown in the 

string. 



Fixed Insertion Editing. 

The currency symbol and the editing sign control symbols •+', '-', 
'CR', 'DB' are the insertion characters. Only one currency symbol and 
only one of the editing sign control symbols can be used in a given 
PICTURE character-string. When the symbols 'CR' or 'DB' are used, 
they represent two character positions in determining the size of the 
item and they must represent the rightmost character positions that 
are counted in the size of the item. The symbol '+' or a '-', when 
used, must be either the leftmost or rightmost character position to 
be counted in the size of the item. The currency symbol must be the 
leftmost character position to be counted in the size of the item 
except that it may be preceded by either a '+' or a '-' symbol. Fixed 
insertion editing results in the insertion character occupying the 
same character position in the edited item as it occupied in the 
PICTURE character-string. Editing sign control symbols produce the 
results shown in Table 6-1, depending on the data item value. 

Table 6-1. Results of Fixed Insertion Editing Symbols 



Editing Symbol In 

PICTURE 
Character-String 


Resul 




Data Item 
Positive Or Zero 


Data Item 
Negative 


+ 


+ 


- 


- 


space 


- 


CR 


2 spaces 


CR 


DB 


2 spaces 


DB 



7. Floating Insertion Editing. 

The currency symbol and editing sign control symbols '+' or '-' are 
the floating insertion characters and as such are mutually exclusive 
in a given PICTURE character-string. 

Floating insertion editing is indicated in a PICTURE character-string 
by using a string of at least two of the floating insertion 
characters. This string of floating insertion characters can contain 
any of the fixed insertion symbols or have fixed insertion characters 
Immediately to the right of this string. These simple insertion 
characters are part of the floating string. 
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The leftmost character of the floating insertion string represents the 
leftmost limit of the floating symbol in the data item. The rightmost 
character of the floating string represents the rightmost limit of the 
floating symbols in the data item. 

The second floating character from the left represents the leftmost 
limit of the numeric data that can be stored in the data item. 
Nonzero numeric data may replace all the characters at or to the right 
of this limit. 

In a PICTURE character-string, there are only two ways of representing 
floating insertion editing. One is to represent any or all of the 
leading numeric character positions on the left of the decimal point 
by the insertion character. The other is to represent all of the 
numeric character positions in the PICTURE character-string by the 
insertion character. 

If the insertion characters are only to the left of the decimal point 
in the PICTURE character-string, the result is that a single floating 
insertion character will be placed into the character position 
immediately preceding either the decimal point or the first nonzero 
digit in the data represented by the insertion symbol string, 
whichever is farther to the left in the PICTURE character-string. The 
character positions preceding the Insertion character are replaced 
with spaces. 

If all numeric character positions in the PICTURE character-string are 
represented by the insertion character, the result depends upon the 
value of the data. If the value is zero, the entire data item will 
contain spaces. If the value is not zero, the result is the same as 
when the insertion character is only to the left of the decimal point 
in the PICTURE character-string. 

To avoid truncation, the minimum size of the PICTURE character-string 
for the receiving data item must be the number of characters in the 
sending data item, plus the number of fixed insertion characters being 
edited into the receiving data item, plus one for the floating 
insertion character. 

8. Zero Suppression Editing. 

The suppression of leading zeros In numeric character positions is 
indicated by the use of the alphabetic character 'Z' or the character 
'•' (asterisk) as suppression symbols in a PICTURE character-string. 
These symbols are mutually exclusive in a given PICTURE 
character-string. Each suppression symbol is counted in determining 
the size of the item. If 'Z' is used, the replacement character will 
be the space; if the asterisk is used, the replacement character will 
be ••' . 
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Zero suppression and replacement is indicated in a PICTURE 
chapaoter-string by using a string of one or aiore of the allowable 
symbols to represent leading numeric character positions which are to 
be replaced when the associated character position in the data 
contains a zero. Any of the siaple insertion characters embedded in 
the string of symbols or to the immediate right of this string are 
part of the string. 

In a PICTURE character-string, there are only two ways of representing 
zero suppression. One is to represent any or all of the leading 
numeric character positions to the left of the decimal point by 
suppression symbols. The other is to represent all of the numeric 
character positions in the PICTURE character-string by suppression 
symbols. 

If the suppression symbols appear only to the left of the decimal 
point, any leading zero in the data which corresponds to a symbol in 
the string is replaced by the replacement character. Suppression 
terminates at the first nonzero digit in the data represented by the 
suppression symbol string or at the decimal point, whichever is 
encountered first. 

If all numeric character positions in the PICTURE character-string are 
represented by suppression symbols and the value of the data is not 
zero, the result is the same as if the suppression characters were 
only to the left of the decimal point. If the value is zero and the 
suppression symbol is 'Z', the entire data item will be spaces. If 
the value is zero and the suppression symbol is ••', the data item 
will be all ••• except for the actual decimal point. 

The symbols •+• , •-•, ••', tzi, and the currency symbol, when used as 
floating replacement characters- are mutuallv exclusive withir a "iver 
character-string. ' ~ ' "" -->'"*" » 6-^'«" 



Precedence Rules: 



The chart in Table 6-2 shows the order of precedence when using characters 

as symbols in a character-string. An 'X' at an intersection indicates that the 

symbols at the top of the column may precede, in a given character-string, the 

symbols at the left of the row. Arguments appearing in braces indicate that the 
symbols are mutually exclusive. The currency symbol is indicated by 'cs'. 

At least one of the symbols 'A', 'X', 'Z', '9', or ••', or at least two of 
tne symbols '+', '-', or 'es' must be present in a PICTURE string. 



• «< 



Nonfloating insertion symbols •+• and '-', floating insertion symbols 'Z', 
, + , - , and 'cs', and other symbol 'P' appear twice in the PICTURE 
Character precedence chart. The leftmost column and uppermost row for each 
symbol represents its use to the left of the decimal point position. The second 
appearance of the symbol in the chart represents its use to the right of the 
decimal point position. 
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Table 6-2. PICTURE Character Precedence Chart 
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REDEFINES CLAUSE 

The REDEFINES clause allows the same memory area to be described bv 
different data description entries. 



General Format: 

level-number data-narae-1 ; REDEFINES data-name-2 

NOTE: Level-number, data-name-1, and the semicolon are included in the 
above format to improve clarity. Level-number and data-name-1 are 
not part of the REDEFINES clause. 

Syntax Rules: 

1. The REDEFINES clause, when specified, must immediately follow 
data-name-1 . 

2. The level-numbers of data-name-1 and data-narae-2 must be identical, 
but must not be 66 or 88. 

3. The REDEFINES clause must not be used in level 01 entries in the File 
Section. Refer to the DATA RECORDS clause. 

»». This clause must not be used in level 01 entries in the Communication 
Section. 

5- The data description entry for data-name-2 cannot contain a REDEFINES 
clause; however, data-name-2 may be subordinate to an entry that 
contains a REDEFINES clause. 

The data description entry for data-name-2 cannot contain an OCCURS 
clause; however, data-name-2 may be subordinate to an item whose data 
description entry contains an OCCURS clause. In this case, the 
reference to data-name-2 in the REDEFINES clause cannot be subscripted 
or indexed. Neither the original definition nor the redefinition can 
include an item whose size is variable as defined in the OCCURS 
clause. 

6. No entry having a level-number numerically lower than the level-number 
of data-name-2 and data-name-1 can occur between the data description 
entries of data-name-2 and data-name-1. 
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General Rules: 



1. Redefinition begins at data-name-2 and ends when a level-nuraber less 
than or equal to that of data-name-2 is encountered. 

2. When the level-number of data-name-1 is other than 01, then 
data-name-1 must specify the same number of character positions that 
the data item referenced by data-name-2 contains. The REDEFINES 
clause only specifies the redefinition of a memory area, not of the 
data items occupying the area. 

3. Multiple redefinitions of the same character positions are permitted. 
The entries giving the new descriptions of the character positions 
must follow the entries defining the area being redefined, without 
intervening entries that define new character positions. Multiple 
redefinitions of the same character positions must all use the 
data-name of the entry that originally defined the area. 

1. The entries giving the new description of the character positions must 
not contain VALUE clauses, except in condition-name entries. 

5. Multiple level 01 entries subordinate to any given level indicator 
represent implicit redefinitions of the same area. 
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ntitniibS VrUAuSb 

The RENAMES clause permits alternative, possibly overlapping, groupings of 
elementary items. 



General Foraat: 



66 data-name- 1 ; RENAMES data-nam6-2 



I ftHROUGtn I 

\ \ f data-name-3 I 

L Lthru J J 



NOTE: Level-number 66 , data-name-1, and the semicolon are included in the 
above format to improve clarity. Level-number and data-name-1 are 
not part of the RENAMES clause. 



Syntax Rules: 



1. All RENAMES entries referring to data items within a given logical 
record must immediately follow the last data description entry of the 
associated record description entry. 

2. Oata-name-2 and data-name-3 must be names of elementary items or 
groups of elementary items in the same logical record, and cannot be 
the same data-name. A level 66 entry cannot rename another level 66 
entry nor can it rename a level 01, 77, or 88 entry. 

3. Data-name-1 must not be used as a qualifier, and can be qualified only 

by the names of the associated level 01, FD, CD, or SD entries. | 

4. Neither data-name-2 nor data-name-3 may have an OCCURS clause in its 
data description entry nor be subordinate to an item that has an 
OCCURS clause in its data description entry. 

5. The beginning of the area described by data-name-3 must not be to the 
left of the beginning of the area described by data-name-2. The enjd 
of the area described by data-name-3 must be to the right of the end 
of the area described by data-name-2. Data-name-3, therefore, cannot 
be subordinate to data-name-2. 

6. Data-name-2 and data-name-3 can be qualified. 

7. The words. THRU and THROUGH are equivalent. 

8. None of the items within the range, including data-name-2 and 
data-name-3, if specified, can be an item whose size is variable as 
defined in the OCCURS clause. 
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General Rules: 



One or more RENAMES entries can be written for a logical record. 

When data-name-3 is specified, data-name-1 is a group item that 
includes all elementary items starting with data-name-2 (if 
data-name-2 is an elementary item) or the first elementary item in 
data-name-2 (if data-name-2 is a group item), and concluding with 
data-name-3 (if data-name-3 is an elementary item) or the last 
elementary item in data-name-3 (if data-name-3 is a group item). 

When data-narae-3 is not specified, data-name-2 can be either a group 
or an elementary item; when data-name-2 is a group item, data-name-1 
is treated as a group item, and when data-name-2 is an elementary 
item, data-name-1 is treated as an elementary item. 
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SIGN CLAUSE 

The SIGN clause specifies the position and the mode of representation of 
the operational sign when it is necessary to describe these properties 
explicitly. 



General Fornat : 



r 1 (LfiACumT r -t 

LSIfiE IS J 1 > [fiEMMia character] 



Syntax Rules: 



1. The SIGN clause can be specified only for a numeric data description 
entry whose PICTURE contains the character 'S', or for a group item 
containing at least one such numeric data description entry. 

2. The numeric data description entries to which the SIGN clause applies 
must be described as USAGE IS DISPLAY. If no USAGE is specified, 
DISPLAY is assumed. 



3. Only one SIGN clause can apply to any given numeric 
entry. 



data description 



Tf VKo nnnv aifr >i.>..-> .i _ --..joj.j _. ■ ___j . . 

*» V..O x^wu-wu< \iA.aui3^ jLis a|/Quj.ixeUf any aignea numeric aaca 

description entries associated with that file description entry must 
be described with the SIGN IS SEPARATE clause. 



General Rules: 



The optional SIGN clause, if present, specifies the position and the 
mode of representation of the operational sign for the numeric data 
description entry to which it applies, or for each numeric data 
description entry subordinate to the group to which it applies. The 
SIGN clause applies only to numeric data description entries whose 
PICTURE contains the character 'S'; the 'S' indicates the presence of, 
but not the position of the operational sign. 

A numeric data description entry whose picture contains the character 
•S', but not the SIGN IS SEPARATE clause, has an operational sign. If 
the LEADING or TRAILING phrase is specified the sign is associated 
with the high-order or low-order digit, respectively, of the data 
item. If neither is specified, the sign is associated with the 
low-order digit of the data item. 
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3. If SIGN IS SEPARATE is specified, 

a. The operational sign is assumed to be the l«3di"8 or trailing 
character position of the elementary numeric data item, this 
character position is not a digit position. 

b The letter 'S' in a PICTURE character-string is counted in 
5etermin!ng the size of the item (in terms of standard data 
format characters). 

c. The operational signs for positive and negative are the standard 
data format characters '+• and '-', respectively. 

i,. Every numeric data description entry whose PICTURE contains the 
character 'S* is a signed numeric data description entry. If 
conversion is necessary for purposes of computation or comparisons, 
conversion takes place automatically. 



Signs resulting from arithmetic operations and initial values are: 
53g (graphic +) 
550 (graphic -) 



+ = 53g (graphic +) 
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SYNCHRONIZED CLAUSE 

The SYNCHRONIZED clause specifies the a^ <R'iT!e"^ -'• ^nf 

on the natural boundaries of the computer memSPj? "' "" "^^■"^"'^^'•y ^^ta item 

General Fo rni at! 



{SYNCHRONIZED 1 P 
SYNC J |_ 




Syntax Rules: 



1. The SYNCHRONIZED clause may appear only with an elementary data item, 

2. SYNC is an abbreviation for SYNCHRONIZED. 

3. LEFT and RIGHT are accepted and treated as documentation only. 



General Rules: 



1. This clause specifies that the subject data item is to be aligned in 
the computer such *-ha* "o -mas- ^,^« ^t— ^ aiignea in 

oV.a--"»-»^ :„-7*r:_-' .:. "° "!^r®'^ .'^^^^ ^tem occupies any of the 
,..a. ^^„^. K^-x«.i.urio oeiween cne leftmost and riRhtmost natural 
boundaries delimiting this data item. If the nuJblr o? characte^ 
positions required to store this data item is less than ?he number of 
character positions between those natural boundaries, the unused 

ofSer°'dat.'^fJ''°"' i°\ '*°'""°"" ^^«'-«°*'^ ""^^ "°^ ^^ "^^^ fo? ^ny 
JncludeJ in: """^ """'^' character positions, however, are 

^- h^f^Jif® °^ ^"y Kroup item(s) to which the elementary item 

b. the character positions redefined when this data item is the 
object of a REDEFINES clause. - 

^' Sr ^JSSp'^?''^^^'^^ clause only has meaning for COMP-7 and COMP-8 data 
For COMP-7, a full word is allocated with the data occupying the 
rightmost 18 bits- For como-o '*-••-. '- -^ •> ^^ ^t-^-t ^ • .^'''■"'^ ^"^ 
1 «rf o^4., = »^j j' • >^"'""« ^'""' io aiioeated on a oyte Doundary 

left adjusted and occupies an integral number of bytes. 

3. Whenever a SYNCHRONIZED item is referenced in the source program the 
original size of the item, as shown in the PICTURE clauser^s us^d in 
determining any action that depends on size, such as justification 
truncation, or overflow. j^^'-'-n.^ay^ion, 
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4. When the SYNCHRONIZED clause is specified in a data description entry 
of 3 data item that also contains an OCCURS clause, or in a data 
description entry of a data item subordinate to a data description 
entry that contains an OCCURS clause, then: 

a. Each occurrence of the data item is SYNCHRONIZED. 

b. Any implicit FILLER generated for other data items within that 
same table are generated for each occurrence of those data items. 

5. See "Data Allocation Rules" in Section II for additional details. 
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USAGE CLAUSE 



The USAGE clause specifies the format of a data item in memory. 



General Format: 



Li 



SAGE IS 



] 



DISPLAY 
COHPUTATIONAL 
C??MF 

gSHPUTATIOMAL-S 
COMP-5 
i COHPbTATlONAL-6 

COMP-6 

COHPUTATIOIIAL-7 

COHP-7 

COHPUTational-b 
. COMP-S 



Syntax Rules: 



1. 

2. 
3. 



The PICTURE character-string of a 
only '9*3, the operational sign 



point character 'V, and one or more 'P's. 



COHPUTATIONAL data item can contain 
character 'S\ the implied decimal 



COHP is an abbreviation for 
for COHPUTATIONAL-n. 



COMPUTATIONAL. COHP-n is an abbreviation 



COHP and COHP-5 have the same meaning. 



General Rules: 



1. The USAGE clause can be written at any level. If the USAGE clause is 
written at a group level, it applies to each elementary item in the 
group. The USAGE clause of an elementary item cannot contradict the 
USAGE clause of a group to which the item belongs. 

2. A COHPUTATIONAL item is capable of representing a value to be used in 
computations and must be numeric. If a group item is described as 
COMPUTATIONAL the elementary items in the group are COMPUTATIONAL. 
The group item itself is not COMPUTATIONAL (cannot be used in 
computations) . 

3. If a USAGE clause Is not specified for an elementary item, or for any 
group to which the item belongs, the usage is implicitly DISPLAY. 
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DISPLAY dat 
sign associ 
LEADING is 
associated 
SIGN claus 
represented 
combined wl 
([) (octal 
represented 
combined wi 
175). 



ated with the rightmost position of the data item unless 

specified in the SIGN clause. In this case, the sign is 

with the leftmost position of the data item. (Refer to the 

e.) A plus sign combined with the digits 1 through 9 is 

by the characters A through I respectively. A plus sign 

th the digit is represented by the nfiaraeter left brace 

173). A minus sign combined with the digits 1 through 9 is 

by the characters J through R respectively. A minus sign 

th is represented by the character right brace (]) (octal 



6, 
7. 
8. 



9. 
10, 
11 , 



COMP, COMP-5, COMPUTATIONAL, and COMPUTATIONAL-5 data items are packed 
decimal. A digit Is represented by U bits, right-justified in a byte. 
A byte may represent 2 digits. The leftmost bit of byte is always 0. 
If the data item is signed, the sign is in right half byte of the 
rightmost byte; i.e., it is a trailing sign. The plus sign is octal 
13 ("1011''b). The minus sign is octal 15 ("1101"b). 



COMP-6 is a fixed twos complement binary integer 
PICTURE clause cannot be specified for this data item. 

COMP-7 is a fixed twos complement binary integer 
PICTURE clause cannot be specified for this data item. 



of 36 bits. 



of 18 bits. A 



COMP-8 data Items are packed decimal. A digit is represented by four 
bits; however, such Items need not start on a byte boundary. A byte 
may represent two digits. The leftmost bit of the byte is always 0. If 
the data item is signed, the sign occupies thfe leftmost half byte of 
data; i.e., it is a leading sign. The plus sign is octal 13 
("1011"b). The minus sign Is octal 15 ("1101"b). 

Refer to the Hultles COBOL Users' Guide for additional information. 

Refer to Section II, "Data Allocation Rules." 

For COMP-7, and COMP-8 see Data Allocation Rules when synchronization 
is of importance. 
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VALUE CLAUSE 

The VALUE clause defines the value of constants, the initial value of 
working-storage data items, and the values associated with a condition-name. 



Format 1 : 



VALUE IS literal 



Format 2; 



{ VALUE isl 
lAUlES ArJ 



literal- 



[ fTHBOUGH 



1 f 



'1 1 

r literal-2 I 
.teral-4 I 



Syntax Rules: 



1. The words THRU and THROUGH are equivalent. 

2. A signed numeric literal must be associated with a signed numeric 
PICTURE character-string. 

3. All numeric literals in a VALUE clause of an item must have a value 
which is within the range of values indicated by the PICTURE clause, 
and must not have a value which would require truncation of nonzero 
digits. Nonnumeric literals in a VALUE clause of an item must not 
exceed the size indicated by the PICTURE clause. 
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General Rules: 



The VALUE clause must not conflict with other clauses in the data 
description of the item or in the data description within the 
hierarchy of the item. The following rules apply: 

a. If the category of the item is numeric, all literals in the VALUE 
clause must be numeric. If the literal defines the value of a 
working-storage data item, the literal is aligned in the data 
item according to the standard alignment rules (see Section II). 

b. If the category of the item is alphabetic, alphanumeric, 
alphanumeric edited, or numeric edited, all literals in the VALUE 
clause must be nonnumeric literals. The literal is aligned in 
the data item as if the data item had been described as 
alphanumeric. Editing characters in the PICTURE clause are 
included in determining the size of the data item but have no 
effect on initialization of the data item. Therefore, the VALUE 
for an edited item is presented in an edited form. 



c. 



Initialization takes place independent of any BLANK 
clause or JUSTIFIED clause that may be specified. 



WHEN ZERO 



A figurative constant may be substituted in both Format 1 and Format 2 
wherever a literal is specified. 



Condition-Name Rules: 



2. 



In a condition-name entry, the VALUE clause is required. The VALUE 
clause and the condition-name itself are the only two clauses 
permitted in the entry. The characteristics of a condition-name are 
implicitly those of its conditional variable. 

Format 2 can be used only in connection with condition-names. 
Wherever the THRU phrase is used, literal-1 must be less than 
literal-2, literal-3 less than literal-M, etc. 
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Data Description Entries Other Than Condition-Names: 

1. Rules governing the use of the VALUE clause differ with the respective 
sections of the Data Division: 

a. In the File Section and in the Linkage Section, the VAlUE clause 
can be used only in condiilon-name entries. 

b. In the Working-Storage Section and in the Communication Section, 
the VALUE clause must be used in condition-name entries. The 
VALUE clause can also be used to specify the initial value of any 
other data item; in which case the clause causes the item to 
assume the specified value at the start of the object program. 
If the VALUE clause is not used in an item's description, the 
initial value is undefined. 

c. In the Constant Section, the VALUE clause must be used for every 
data item defined, but not necessarily for every data 
description , due to redefines and renames capabilities. 

2. The VALUE clause must not be stated in a data description entry that 
contains an OCCURS clause, or in an entry that is subordinate to an 
entry containing an OCCURS clause. This rule does not apply to 
condition-name entries. 

3. The VALUE clause must not be stated in a data description entry that 
contains a REDEFINES clause , or in an entry that is subordinate to an 
entry containing a REDEFINES clause. This rule does not apply to 
condition-name entries. 

M. If the VALUE clause is used in an entry at the group level, the 
literal must be a figurative constant or a nonnumeric literal, and the 
group area is initialized without consideration for the individual 
elementary or group items contained within this group. The VALUE 
clause cannot be stated at the subordinate levels within this group. 

5 The VALUE clause must not be written for a group containing items with 
descriptions including the JUSTIFIED, SYNCHRONIZED, or USAGE clauses 
(other than USAGE IS DISPLAY). 
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PROCEDURE DIVISION FOR THE NUCLEUS 



PROCEDURE DIVISTOM FnMr.TTn>f5? 

The Procedure Division contains the procedures required to solve a given 
problem and rust be included in every Multies COBOL source program. Thn 
Procedure Division is written as statements, combined to form sentences, 
combined to form paragraphs under paragraph-names, which in turn can be combined 
into sections under section-names. 



ARITHMETIC EXPRESSTOMS 

An arithmetic expression can be an identifier of a numeric elementary item, 
a numeric literal, such identifiers and literals separated by arithmetic 
operators, two arithmetic expressions separated by an arithmetic operator, or an 
arithmetic expression enclosed in parentheses. Any arithmetic expression may be 
preceded by a unary operator. The permissible combinations of variables, 
numeric literals, arithmetic operators, and parentheses are given below in 
Table 7-1. 



Identifiers and literals appearing in an arithmetic expression must 



. -ifLft «>^«tj w 



€jkbii€r numerxC exaSentai-y ItSaiS Cr numeric literals On which 



arithmetic may be performed. 



Arithmetic Qparatarii 

Five binary arithmetic operators and two unary arithmetic operators can be 

used in arithmetic expressions. They are represented by specific characters 

that must be preceded by a space and followed by a space. 
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Binary 

Arithmetic Qpftratora 



/ 



Hganing 

Addition 

Subtraction 

Multiplication 

Division 

Exponentiation 



Unary 
Arithmetic Operators 



Meaning 

The effect of multiplication 
by numeric literal +1 

The effect of multiplication 
by numeric literal -1 



Formation and Evaluation Rules 

Rules for the formation and evaluation of arithmetic expressions are: 

1. Parentheses can be used in arithmetic expressions to specify the order 
in which elements are to be evaluated. Expressions within parentheses 
are evaluated first and, within nested parentheses, evaluation 
proceeds from the least inclusive set to the most inclusive set. When 
parentheses are not used, or parenthesized expressions are at the same 
level of inclusiveness, the following hierarchical order of execution 
is implied: 

1st - Unary plus and minus 

2nd - Exponentiation 

3rd - Multiplication and division 

'(th - Addition and subtraction 

2. Parentheses are used either to eliminate ambiguities in logic where 
consecutive operations of the same hierarchical level appear or to 
modify the normal hierarchical sequence of execution In expressions 
where some deviation from the normal precedence is required. When the 
sequence of execution is not specified by parentheses, the order of 
execution of consecutive operations of the same hierarchical level is 
from left to right. 

3. Methods in which operators, variables, and parentheses may be combined 
in an arithmetic expression are summarized in Table 7-1. 

>i . An arithmetic expression can begin only with the symbols (, +, or -, 
or a variable, and can end only with a ) or a variable. There must be 
a one-to-one correspondence between left and right parentheses of an 
arithmetic expression, so that each left parenthesis is to the left of 
its corresponding right parenthesis. 

5. Arithmetic expressions allow the user to combine arithmetic operations 
without the restrictions on composite of operands or receiving data 
items. (Refer to "Arithmetic Statements" later in this section.) 
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Table 7-1. Combination of Symbols In Arithmetic Expressions 



First 
Symbol 


Second Symbol 


fvlriabie" 




Unary 
* or - 


( 


) 


Unary + or - 

( 
) 


P 
P 
P 


P 

P 


P 
P 


P 
P 
P 


P 

P 


NOTES: 1. The letter P indicates a permissible pair of 
symbols. 

2. The character "-" represents an invalid pair. 

3. "Variable" represents an identifier or literal. 



COMDITIONAL EXPRESSIONS 

Conditional expressions identify conditions that are tested to enable the 
object program to select between alternate paths of control depending upon the 
truth value of the condition. Conditional expressions are specified in the IF, 
PERFORM, and SEARCH statements. Two categories of conditions are associated 
with conditional expressions: simple conditions and complex conditions. Each 
may be enclosed within any number of paired parentheses, in which ease its 
category is not changed. 



Staple Conditions 



Simple conditions are the relation, class, condition-name, switch-status, 
and sign conditions. A simple condition has a truth value of true or false. 
When simple conditions are included within parentheses, the simple 
does not change. 



truth value 
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RELATION CONDITION 



A relation condition causes a comparison of two operands, each of which can 
be th" data item referenced by an identifier, a literal, or the value resulting 
from an arithmetic expression. A relation condition has a truth value of true 
if ^ne relation exists between the operands. Comparison of two numeric operands 
is permitted regardless of the formats specified in their respective USAGE 
clauses. However, for all other comparisons the operands must have the same 
usage. If either of the operands is a group item, the nonnumeric comparison 
rules apply. 



The general format of a relation condition is: 



{ 



identifier-1 
literal-1 
arlthmetic- 
expression-1 



IS [EQ12 > 

IS [JiQl] < 

IS tUQl] 

IS [Ml] OfiEAlEl THAN 

IS [UQl] lES^ THAN 

IS [HQI] EflliAL TO 

IS ilMQilAL TO 

^. EXCEEDS 



r identifler-2 "S 
J literal-2 I 
\ arithmetic- f 
I expression-2 J 



NOTE: The required relational characters >, <, and = are not unde. -lined to 
avoid confusion with other symbols such as > (greater than or equal 
to). 

The first operand (identifier-1, literal-1, or arithmetic-expresslon-1 ) is 
called the subject of the condition; the second operand (identifier-2, 
literal-2, or arithmetic-expresslon-2) is called the object of the condition. 
The relation condition must contain at least one reference to a variable. 

The relational operator specifies the type of comparison to be made in a 
relation condition. A space must precede and follow each reserved word of which 
the relational operator is composed. When used, NOT and the next key word or 
relation character are one relational operator that defines the comparison to be 
executed for truth value; that is, NOT EQUAL is a truth test for an unequal 
comparison and NOT GREATER is a truth test for an equal or less comparison. The 
meaning of the relational operators is: 



Relatloaal Operator 



f "^ 




IS 


NOT 


GREATER THAN 


IS 


' not] 


> 


IS 


] not] 


LESS THAN 


IS 


'. ^^"^ '. 


< 


IS 


' NOT ] 


EQUAL TO 


IS 


* not' 


= 


B id 




IS UNEQUAL 


. TO 


EQUALS 




EXCJ 


:eds 





) 
) 
) 



MeanitiK 
Greater than or not greater than 
Less than or not less than 

Equal to or not equal to 

Not equal to 
Equal to 
Greater than 



7-4 



kStiU 



Comparison of Numeric Operands 

For operands whose class is nutnepic, a comparison is made with respect to 
the algebraic value of the operands. The length of the literal or arithmetic 
expression operands, in terras of number of digits represented, is not 
significant. Zero is considered a unique value regardless of the sign. 
Comparison of these operands is permitted regardless of the manner in which 
their usage is described. Unsigned numeric operands are considered positive for 
purposes of cornparison. 



Comparison of Nonnumeric Operands 

For two nonnumeric operands, or one numeric and one nonnumeric operand, a 
comparison is made with respect to a specified collating sequence of 
characters. Refer to the PROGRAM COLLATING SEQUENCE phrase of the 
OBJECT-COMPUTER paragraph. If one of the operands is specified as numeric, it 
must be an integer data item or an integer literal and: 

1. If the nonnumeric operand is an elementary data item or a nonnumeric 
literal, the numeric operand is treated as though it were moved to an 
elementary alphanumeric data item of the same size as the numeric data 
item (in terms of standard data format characters) , and the contents 
of this alphanumeric data item were then compared to the nonnumeric 
operand. (Refer to the MOVE statement and the character P in the 
PICTURE clause. ) 

2. If the nonnumeric operand is a group item, the numeric operand is 
treated as though it were moved to a group item of the same size as 
the numeric data item (in terms of standard data format characters), 
and the contents of this group item were then compared to tne 
nonnumeric operand. 

A noninteger numeric operand cannot be compared to a nonnumeric operand. 



Comparison of Operands of Equal or Unequal Sizes 

The size of an operand is the total number of standard data format 
characters in the operand. Numeric and nonnumeric operands can be compared only 
when their usage is the same. There are two cases to consider: operands of 
equal size and operands of unequal size. 

If the operands are of equal size, comparison effectively proceeds by 
comparing characters in corresponding character positions starting from the 
high-order end and continuing until either a pair of unequal characters is 
encountered or. the low-order end of the operand is reacned, whichever comes 
first. The operands are determined to be equal if all pairs of characters 
compare equally through the last pair, when the low-order end is reached. 

The first encountered pair of unequal characters is compared to determine 
their relative position in the collating sequence. The operand that contains 
the character that is positioned higher in the collating sequence is considered 
to be the greater operand. 

If the operands are of unequal size, comparison proceeds as though the 
shorter operand is extended on the right by sufficient spaces to make the 
operands of equal size. 
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CLASS CONDITION 



The class condition determines whether the operand is numeric, consisting 
itirely of the characters through 9 (with or without the operational sign), 
- alphabetic, consisting entirely of the characters A through Z, a through z, 
id the space. The general format for the class condition is: 



identifier IS 






The usage of the operand being tested must be described as DISPLAY. When 
used, NOT and the next key word specify one class condition that defines the 
class test to be executed for truth value; that is, NOT NUMERIC is a truth test 
for determining that an operand is nonnumeric. 

The NUMERIC test cannot be used with an item whose data description 
describes the item as alphabetic or as a group item composed of elementary items 
whose data description indicates the presence of operational signs. If the data 
description of the item being tested does not indicate the presence of an 
operational sign, the item being tested is determined to be numeric only if the 
contents are numeric and an operational sign is not present. If the data 
description of the item does indicate the presence of an operational "^ gn, the 
item being tested is determined to be numeric only if the contents ?re numeric 
anc" a valid operational sign is present. 

The ALPHABETIC test cannot be used with an item whose data description 
describes the item as numeric. The item being tested is determined to be 
alphabetic only if the contents consist of any combination of the alphabetic 
characters A through Z, a through z, and the space. 



CONDITION-NAME CONDITION 

In a condition-name condition, a conditional variable is tested to 
determine whether or not its value is equal to one of the values associated with 
a condition-name. The general format for the condition-name condition is: 

condition-name 

If the condition-name is associated with a range or ranges or-values, • then 
the conditional variable is tested to determine whether or not its Value falls 
in this range, including the end values. 

The rules for comparing a conditional variable with a condition-name value 
are the same as those specified for relation conditions. The result of the test 
is true if one of the values corresponding to the condition-name equals the 
value of its associated conditional variable. 



SWITCH-STATUS CONDITION 

A switch-status condition determines the "on" or "off" status of an 
implementor-defined switch. The implementor-name and the "on" or "off" value 
associated with the condition roust be named in the SPECIAL-NAMES paragraph of 
the Environment Division. 
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The general format of the status-switch condition is as follows: 
condltlon-naffle 

The result of the test is true if the switch is set to the specified 
position corresponding to the condition-nane. 

SIGN CONDITION 

The sign condition determines whether or not the algebraic value of an 
arithmetic expression is less than, greater than, or eaual to zero. The general 
format for a sign condition is: 



arithmetic-expression IS 



r T f PQSITIYS 1 

UQlJ \ HfiOAlIifi f 

"* K.ZEM J 



When used, NOT and the next key word specify one sign condition that 
defines the algebraic test to be executed for truth value; for example, NOT ZERO 
is a truth test for a nonzero (positive or negative) value. An operand is 
positive if its value is greater than zero, negative if its val le is less than 
zero, and zero if its value is equal to zero. The arithmetic expression must 
contain at least one reference to a variable. 



Complex Condition^ 

A complex condition is formed by combining simple conditions, combined 
conditions, or complex conditions with logical connectors (logical operators AND 
and OR) or negating these conditions with logical negation (the logical operator 
NOT). The truth value of a complex condition, whether parenthesized or not, is 
that truth value which results from the interaction of all the stated logical 
operators on the individual truth values of simple conditions, or the 
intermediate truth values of conditions logically connected or logically 
negated. 

The logical operators and their meanings are: 

Logical Operator Meaning 

AND Logical conjunction; the truth value is true if both 

of the conjoined conditions are true; false if one or 
both of the conjoined conditions is false. 

08 Logical inclusive OR; the truth value is true if one 

or both of the included conditions is true; false if 
both included conditions are false. 

NOT Logical negation or reversal of truth value; the truth 

value is true if the condition is false; false if the 
condition is true. 

The logical operators must be preceded by a space and followed by a space. 
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NEGATED SIMPLE CONDITIONS 

A simple condition is negated by using the logical operator NOT. The 
negated simple condition results in the opposite truth value for a simple 
condition. Thus, the truth value of a negated simple condition is true only j 
the truth value of the simple condition is false; the truth value of a negatt 
simple condition is false only if the truth value of the simple condition is 
true. If a negated simple condition is included within parentheses, the truth 
value does not change. The general format for a negated simple condition is: 

liiil simple-condition 



COMBINED AND NEGATED COMBINED CONDITIONS 

A combined condition results from connecting conditions with one of the 
logical operators AND or OR. The general format of a combined condition is: 



11 f condition i • . . 

I Im J J 



condition 11 f condition 
where "condition" can be: 



o A simple condition 

A negated simple condition 

A combined condition 

A negated combined condition; that is, the NOT logical operatoi 
followed by a combined condition enclosed within parentheses 

o Combinations of the above, stated according to the rules specified in 
Table 7-2 

Although parentheses need never be used when either AND or OR (but not 
both) is used exclusively in a combined condition, parentheses can be used to 
effect a final truth value when a mixture of AND, OR, and NOT is used. (Refer 
to "Condition Evaluation Rules" below.) 

There must be a one-to-one correspondence between left and right 
parentheses such that each left parenthesis is to the left of its corresponding 
right parenthesis. 
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laoie f-d. combinations of Conditions, Logical Operators, and Parentheses 



Given the follow- 
ing element 


Location in 
conditional 


In a left-to-right sequence of elements: 


exDression 


Element, when not 
first, can be 
immediately pre- 
ceded by only: 


Element, when not 
last, can be 
immediately fol- 
lowed by only: 


First 


Last 


simple -condition 


Yes 


Yes 


OR, NOT, AND, ( 


OR, AND, ) 


OR or AND 


No 


No 


simple-condition, ) 


simple-condition , 
NOT, ( 


NOT 


Yes 


No 


OR, AND, ( 


simple-condition, ( 


( 


Yes 


No 


OR, NOT, AND, ( 


simple-condition, 
NOT, { 


) 


No 


Yes 


simple-condition, ) 


OR, AND, ) 



Thus, the element pair OR NOT is permissible while the pair NOT OR 
permissible; NOT ( is permissible while NOT NOT is not permissible. 



is not 



Abbreviated Combined Relation Conditions 

When simple or negated simple relation conditions are combined with logical 
connectives in a consecutive sequence such that a succeeding relation condition 
contains a subject or subject and relational operator that is common with the 
preceding relation condition, and no parentheses are used within such a 
consecutive sequence, any relation condition except the first may be abbreviated 
by: 

o Omitting the subject of the relation condition 

o Omitting the subject and relational operator of the relation condition 

The format for an abbreviated combined relation condition is: 



I f LllfilJ f relational-operator ] object f ... 



relation-condition * 



Within a sequence of relation conditions both of the above forms of 
abbreviation may be usea. The effect of using such abbreviations is as if the 
last preceding stated subject is inserted in place of the omitted subject, and 
the last stated relational operator is inserted in place of the omitted 
relational operator. The result of such implied insertion must comply with the 
rules in Table 7-2. This insertion of an omitted subject and/or relational 
operator terminates after a complete simple condition is encountered within a 
complex condition. 
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The interpretation applied to the use of the word NOT in an abbreviated 
corobine'J relation condition is as follows: 

1. If the word or symbol immediately following NOT is GREATER, >, LESS, 
<, EQUAL, or =, then the NOT participates as part of the relational 
operator; otherwise 

2. The NOT is interpreted as a logical operator and, therefore, the 
implied insertion of subject or relational operator results in a 
negated relation condition. 

Some examples of abbreviated combined and negated combined relation 
conditions and expanded equivalents follow. 



Abbreviated Combined 

Relation ,CQn<ilition 

a > b AND NOT < c OR d 

a NOT EQUAL b OR 

NOT a = b OR c 

NOT (a GREATER b OR < c) 

NOT (a NOT > b AND c AND NOT d) 



Expanded Equivalent 

((a > b) AND (a NOT < c)) OR (a NOT < d) 

(a NOT EQUAL b) OR (a NOT EQUAL c) 

(NOT (a = b)) OR (a = c) 

NOT ((a GREATER b) OR (a < c') 

NOT ((((a NOT > b) AND (a NOT > c)) AND 
(NOT (a NOT > d)))) 



Condition Evaluation Rulea 

Parentheses may be used to specify the order in which individual conditions 
of complex conditions are to be evaluated when it is necessary to depart from 
the implied evaluation precedence. Conditions within parentheses are evaluated 
first and, within nested parentheses, evaluation proceeds from the least 
Inclusive condition to the most inclusive condition. When parentheses are not 
used, or parenthesized conditions are at the same level of inclusiveness, the 
following hierarchical order of logical evaluation is implied until the final 
truth value is determined: 

1. Values are established for arithmetic expressions. (Refer to 
"Formation and Evaluation Rules" above. 

2. Truth values for simple conditions are established in the following 
order: 

o Relation (following the expansion of any abbreviated relation 
condition) 

o Class 

Condition-Name 

o Sign 

3. Truth values for negated simple conditions are established. 
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'i. Truth values for combined conditions are established: 
o AND logical operators, followed by 
o OF logical operators. 

5. Truth values for negated combined conditions are established. 

6. When the sequence of evaluation is not completely specified by 
parentheses, the order of evaluation of consecutive operations of the 
same hierarchical level is from left to right. 



COMMON PHRASES IN STATEMEMT FORMATS 

In the statement descriptions of the Procedure Division, several phrases 
appear frequently: ROUNDED, SIZE ERROR, and CORRESPONDING. 

In the following paragraphs, the term "resultant-identifier" is that 
identifier associated with a result of an arithmetic operation. 



ROUNDED Phrase 

If, after decimal point alignment, the number of places in the fraction of 
the result of an arithmetic operation is greater than the number of places 
provided for the fraction of the resultant-identifier, truncation is relative to 
the size provided for the resultant-identifier. When rounding is requested, the 
absolute value of the resultant-identifier is increased by one (1) in the least 
significant digit whenever the rost significant digit of the excess is greater 
than or equal to five (5). 

When the low-order integer positions in a resultant-identifier are 
represented by the character P in the PICTURE for that resultant-identifier, 
rounding or truncation occurs relative to the rightmost integer position for 
which storage is allocated. 



SIZE ERROR Phraae 

If, after decimal point alignment, the absolute value of a result exceeds 
the largest value that can be contained in the associated resultant-identifier, 
a size error condition exists. Division by zero always causes a size error 
condition. The size error condition applies only to the final results of an 
arithmetic operation and not to intermediate results, except in the MULTIPLY and 
DIVIDE statements, in which case the size error condition applies to the 
intermediate results as well. If the ROUNDED phrase is specified, rounding 
takes place before checking for size error. When such a size error condition 
occurs, the subsequent action depends on whether or not the SIZE ERROR phrase is 
specified. 

1. If the SIZE ERROR phrase- is not specified and a size error condition 
occurs, the values of those resultant-identifiers affected are 
undefined. Values of resultant-identifiers for which no size error 
condition occurs are unaffected by size errors that occur for other 
resultant-identifiers during execution of this operation. Normally, 
when a size error occurs and the SIZE ERROR phrase is not specified, 
program execution terminatcD, ar.d control returns to command level. 
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2. If the SIZE ERROR phrase is specified and a size error condition 
occurs, the values of resultant- identifiers affected by the size 
errors are not altered. Values of resultant-identifiers for which no 
size error condition occurs are unaffected by size errors that occur 
for other resultant- identifiers during execution of this operation. 
After completion of the execution of this operation, the imperative 
statement in the SIZE ERROR {)hrase is executed. 

For the ADD statement with the CORRESPONDING phrase and the SUBTRACT 
statement with the CORRESPONDING phrase, if any of the individual operations 
produce a size error condition, the imperative statement in the SIZE ERROR 
phrase is not executed until all individual additions or subtractions are 
completed . 



CORRESPONDING Phrase 

I For the purpose of this discussion, di and d2 represent identifiers that 
refer to group items. A pair of data items, one from d^ and one from d2 , 
correspond if the following conditions exist: 

I 1. A data item in di and a data item in d2 are not designated by the key 
word FILLER and have the same data-name and the same qualifiers up to, 
I but not including, d^ and dp. 

2. At least one of the data items is an elementary data item in the case 
of a MOVE statement with the CORRESPONDING phrase; both data items are 
elementary numeric data items in the case of the ADD statement with 
the CORRESPONDING phrase or the SUBTRACT statement with the 
CORRESPONDING phrase. 

I 3. The description of d-] and dg must not contain level-number 66, 77, or 
88, or the USAGE IS INDEX clause. 

I 1. A data item that is subordinate to d^ or dp and contains a REDEFINES, 
RENAMES, OCCURS, or USAGE IS INDEX clause is ignored; data items 
subordinate to the data Item that contains such a clause are also 

I Ignored. However, d^ and dp may have REDEFINES or OCCURS clauses or 

be subordinate to data Items with REDEFINES or OCCURS clauses. 

5, If no data Item corresponds (i.e., no ADD, SUBTRACT, or MOVE takes 
place) , a fatal diagnostic is produced at compilation time. 



ARITHMETIC STATEMENTS 

The arithmetic statements are ADD, COMPUTE, DIVIDE, MULTIPLY, and SUBTRACT. 
They have several common features. 

1. The data descriptions of the operands need not be the same; any 
necessary conversion and decimal point alignment is supplied 
throughout the calculation. 

2 The maximum size of each operand is 18 decimal digits. The composite 
of operands, which Is a hypothetical data item resulting from the 
superimposltlon of specified operands in a statement aligned on their 
decimal points, must not contain more than 18 decimal digits. 
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Computations in the object program must frequently use data items to 
hold intermediate values. These items, called temporary operands, are 
30 digits in size, are invisible to the programmer, and hold any 
interim values generated by an arithmetic operation. A number of most 
significant nonzero digits, which can be set by the NUMERIC-LIMIT 
clause, are retained at all times. Unless otherwise specified, the 
default is 30, In an arithmetic operation, when the size of the value 
exceeds that number of digits, the least significant (rightmost) 
digits are truncated. 



A size error can occur if the final results of an arithmetic operation 
are too large for the receiving field. The size error occurs when an 
attempt is made to store the intermediate data item, not during actual 
computation. During computation, a size error can occur only under 
certain conditions, such as when the user attempts to divide by zero 
or violates a rule of exponentiation. (Refer to "Exponentiation in 
Arithmetic Expressions" below.) 



QverlapplnK Qperanda 

When sending and receiving items in an INSPECT, SET, STRING, or UNSTRING 
statement share a part of their storage areas, the result of the execution of 
such a statement is undefined. 

When sending and receiving items in an arithmetic statement or a MOVE 
statement share a part of their storage areas, the statement operates as if the 
sending operand is moved to a temporary operand and then the temporary operand 
participates in the operation. 



Multiple Results in Arithmetic Statements 



Arithmetic statements can have multiple results, 
though they are written in the following way: 



Such statements behave as 



A statement which performs all arithmetic necessary to arrive at the 
result to be stored in the receiving items, and stores that result in 
a temporary storage location. 

A sequence of statements transferring or combining the value of this 
temporary location with a single result. These statements are 
considered to be written in the same left-to-right sequence in which 
the multiple results are listed. 

The result of the statement 

ADD a, b, c TO c, d (c), e 

is equivalent to: 

ADD a, b, c GIVING temp 
ADD temp TO c 
ADD temp TO d (c) 
ADD temp TO e 

where "temp" is an intermediate result item provided by the compiler. 
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Exponentiation in Arithmetic Expresalona 

The rules that apply to exponentiation in an arithmetic expression are as 
follows: 



the 



1. An exponent is an arithmetic expression. 

2. When an expression to be raised to a power has the value of zero, 
exponent must have a positive value greater than zero. 

3. When an expression to be raised to a power has a negative value, the 
exponent must have an integral value. 

H. If a Multics COBOL user violates either rule 2 or 3, 3^„^i^®„^®''''°|; 

condition occurs at execution time. (Refer to "SIZE ERROR Phrase" 
above. ) 



I^ff^OMPATIBLE DATA 

Except for the class condition, when the contents of a data item are 
referenced in the Procedure Division and the contents of that data item are 
incompatible with the class specified for that data item by its PICTURE clause, 
the result of such a reference is undefined. 



finN-TNPUT/OUTPUT ERRORS 

Non-input/output (I/O) errors can be detected by the processing equipment, 

the Multics operating system, or by instructions generated by the compiler. An 

out-of-range subscript is an example of a non-input/output error. The following 
conditions occur as a result: 

1. If the compiler can anticipate the error (for example, an out of range 
subscript), a COBOL error message describing the error in COBOL terras 
is issued. It gives the program-name, the external line number, and 
the address (segment number and offset). These error messages are 
described in the Mitliia £jQEQL ilafilial fijlilfi. The error condition is 
then signalled. 

2 If the compiler cannot anticipate the error (for example, record quota 
overflow) the error condition is signalled. If a default handler is 
not provided for the error, Multics issues an error message and goes 
to command level. Refer to the MPM Reference Guide for descriptions 
of signalling error conditions, default handlers, and command level. 

3. Error messages are written on the I/O module error_output , which is 
normally attached to the user's terminal. 
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ACCEPT 



ACCEPT 



ACCEPT STATEMRWT 

The ACCEPT statement causes low-volume data to be made available in the 
specified data item. 

Format 1 : 

!££££! Identifier f Z^QH mnemonic-name 1 



Format g ; 

AC££EI identifier PROM 

Syntax Rules: 



J2AIE 

Ml 

TIHP 

DAY-OF-WBEK 



) 



1. Mnemonic-name must be specified in the SPECIAL-NAMES paragraph 
(Section VI) of the Environment Division and must be associated with 
either SYSIN or CONSOLE. 



General Rules: 



Format 1 : 



1. 



3. 



7. 



The ACCEPT statement causes data to be transferred from the hardware 
device or system file specified by the FROM phrase. This data 
replaces the contents of the data item named by the Identifier. 

The FROM phrase is for documentation only. Data is input from the I/O 
switch u3er_input, which is normally attached to the user's terminal. 



The transfer of 
encountered in 
identifier. 



data is terminated when a newline character is 
the data. The newline character is not stored in the 



If the size of the receiving data item exceeds the size of the 
transferred data, the transferred data is stored aligned to the left 
in the receiving data item with blank-fill on the right. 

If the size of the transferred data exceeds the size of the receiving 
data item, only the leftmost characters of the transferred data are 
stored in the receiving data item. The remaining characters of the 
transferred data which do not fit into the receiving data item are 
discarded. 



No conversion takes place when storing data in the identifier, 
is stored in memory exactly as it is received. 



Data 
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ACCEPT ACCEPT 



1. The ACCEPT statement causes the Information requested to be 
transferred to the data item specified by Identifier according to the 
rules of the MOVE statement. DATE, DAY, and TIME are conceptual data 
items and, therefore, are not described in the COBOL program. 

2. DATE is composed of the data elements year of century, month of year, 
and day of month. The sequence of the data element codes is from high 
order to low order (left to right) year of century, month of year, and 
day of month. For example, July M, 1976 is expressed as 7607OJ4. 
DATE, when accessed by a COBOL program, reacts as if it is described 
in the program as an unsigned elementary numeric integer data item six 
digits in length. 

3. DAY is composed of the data elements year of century and day of year. 
The sequence of the data element codes is from high order to low order 
(left to right) year of century, day of year. For example, July 4, 
1976 is expressed as 76l86. DAY, when accessed by a COBOL program, 
reacts as if it is described in the program as an unsigned elementary 
numeric integer data item five digits in length. 

'■i. TIME is composed of the data elements hours, minutes, seconds, and 
hundredths of a second. TIME is based on elapsed time after midnight 
on a 21-hour clock basis; thus, 2:11 P.M. is expressed as 11110000, 
TIME, when accessed by a COBOL program, reacts as if it is described 
in the program as an unsigned elementary numeric integer data item 
eight digits in length. The minimum value of TIME is 00000000; the 
maximum value of TIME is 23595999. 

5. DAY-OF-WEEK is composed of a single data element whose content 
represents the day of the week. When accessed by a COBOL program, 
DAY-OF-WEEK behaves as if it had been described in the COBOL program 
as an unsigned elementary numeric integer data item one digit in 
length. In DAY-OF-WEEK, the value 1 represents Monday, 2 represents 
Tuesday, ..., 7 represents Sunday. 
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ADD STATEMEMT 

The ADD statement causes two or more numeric operands to be summed and the 
result to be stored. 



Format 1 ; 



{ identifier- 1 ^ f, identifier-2 1 - - 

f ... 12 identifier-m I fiQUHIiEE J 

literal-1 J L , literal-2 J 

|_ , identifier-n [] HOUMDED ] j ... [; OH SIZE ERROR imperative-statement ]| 



Format 2 : 



f identifier-1 "1 f identifier-2 "1 f", identifier-3 1 
L literal-1 J ' I literal-2 J L, literal-3 J 

amm identlfler-m [ fiflUMiififi ] [, identifier-n [ IQlIlffiED ] J 
r ; ON SIZE ERROR imperative-statement j 



Format 3 ; 

j CQRRESPOWPIHa I 



f identifier-1 . Ifl identifier-2 [ aOIlMfiEIi J 
r i ON SIZSt £&fiQB imperative-statement J 



ADD 

££UiB 
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Syntax Rules: 

1. In Formats 1 and 2, each identifier must refer to an elementary 
numeric item, except that in Format 2 each identifier following the 
word GIVING must refer to either an elementary numeric item or an 
elementary numeric edited item. In Format 3, each identifier must 
refer to a group item. 

2. Each literal must be a numeric literal. 

3. The composite of operands must not contain more than 18 decimal 
digits. 

a. In Format 1, the composite of operands is determined by using all 
of the operands in a given statement, 

b. In Format 2, the composite of operands is determined ty using all 
of the operands in a given statement excluding the data items 
that follow the word GIVING. 

c. In Format 3s the composite of operands Is determined separately 
for each pair of corresponding data items. 

^. CORR is an abbreviation for CORRESPONDING. 



General Rules: 

1. If Format 1 is used, the values of the operands preceding the word TO 
are added together. That sum is then added to the current value of 
identif ier-m, and the result is stored immediately into identifier-m; 
this process is repeated respectively for each operand following the 
word TO. 

2. If Format 2 is used, the values of the operands preceding the word 
GIVING are added together and this sum is stored as the new value of 
each identifier-m, Identifier-n, ..., the resultant-identifiers. 

3. If Format 3 is used, data items in identifier-1 are added to and 
stored in corresponding data items in identif ier-2. 

4. For large operands, the compiler uses the temporary operand described 
under "Arithmetic Statements" earlier in this section. 

5. Refer to "Common Phrases in Statement Formats" earlier in this section 
for an explanation of the uses of the ROUNDED, SIZE ERROR, and 
CORRESPONDING phrases and arithmetic statements. 
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ALTER STA7EMEM7 

The ALTER statement modifies a predetermined sequence of operations. 

General Format: 

PROggED TO J procedure-name-2 
I , procedure-name-3 IQ. f PROCEED TO J procedure-name-i» J ... 
Syntax Rules: 

1. Each procedure-name-1 , procedure-name-3, ..., is the name of a 
paragraph containing a single sentence consisting of a GO TO statement 
without the DEPENDING phrase. 

2. Each procedure-naroe-2, procedure-name-4, ..., is the name of a 
paragraph or section in the Procedure Division. 

General Rules: 

1. Execution of the ALTER statement modifies the GO TO statement in the 
paragraph named procedure-name-1, procedure-name-B, •>•, so that 
subsequent executions of the modified 60 TO statements cause transfer 
of control to proeedure-naBe-2, procedure-name-4, ..., respectively. 

2. A GO TO statement in a section whose segment-number is greater than or 
equal to 50 must not be referred to by an ALTER statement in a section 
with a different segment-number. 

3. Use of the "ALTER" statement should be avoided; use of the "GO 
TO. . .DEPENDING" statement is preferred. 
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COMPUTE 



COMPUTE STATEMENT 

The COMPUTE statement assigns the value of an arithmetic expression to one 
or more data items. 



General Format: 



COMPUTE identifier-1 [ MlililJfiE ] [_. identifier-2 [ B QUNPEP J J ••■ 

t FROM "I r .. . . .1 

f arithmetic-expression I ; ON SIZE ERPQP imperative-statementj 



Sy.itax Rules: 



1. Identifiers that appear to the left of a FROM, EQUALS, or -- must refer 
to either an elementary numeric item or an elementary numeric eaited 
item. 



General Rules: 



1. 



4. 



An arithmetic expression consisting of a single identifier or literal 
provides a method of setting the values of identifier-1, identif ier-2, 
etc., equal to the value of the single identifier or literal. 



If more than one identifier 
operation, and precedes a 



is specified for 
FROM, EQUALS, or 



the result of the 
=, the value of the 
arithmetic expression is computed ,' and this value is stored as the new 
value of each of the data items referenced by identif ier-1 , 
identifier-2, etc., in turn. 

The effect of the COMPUTE statement is the same as if a series of 
Individual arithmetic operations are written. Refer to "Arithmetic 
Statements" earlier in this section for details of intermediate 
results and truncation. 

Refer to "Common Phrases in Statement Formats" earlier in this section 
for an explanation of the uses of the ROUNDED and SIZE ERROR phrases 
and arithmetic statements. 
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DISPLAY STATEHEHT 

The DISPLAY statement causes a line or lines of characters to be 
transferred to a hardware device or system output file. 



General Format: 



DISPLAY 



Syntax Rules: 



{Identifier-! 1 f, identifier-2 I - - 

f I ••• L ^PO^ mnemonic-name J 

literal-1 J L , literal-2 J *" 



1. Mnemonic-name must be specified in the SPECIAL-NAMES paragraph 
(Section VI) of the Environment Division and must be aasociated with 
either SYSOUT or CONSOLE. 

2. Each literal can be any figurative constant, except ALL. 

3. If the literal is numeric, it must be an unsigned integer. 



General Rules: 



1. The DISPLAY statement causes the contents of each operand to be 
transferred to the user I/O switch specified by the UPON phrase in the 
order listed. 

2. If the UPON phrase is not specified, SYSOUT is assumed. 

3. If SYSOUT is implicit or is specified by mnemonic-name associated with 
SYSOUT, data is transferred to the I/O switch user_output, which is 
normally attached to the user's terminal. 

If CONSOLE is specified by a mnemonic-name associated with CONSOLE, 
data is transferred to the I/O switch error_output, which is normally 
attached to the user's terminal. 

1. If a figurative constant is specified as one of the operands, only a 
single occurrence of the figurative constant is displayed. 

5. When a DISPLAY statement contains more than one operand, the operands 
are concatenated without intervening spaces and the values of the 
operands are transferred in the sequence in which the operands are 
encountered. 

6. A newllne character is transferred following the last operand. 

7. No conversion of data takes place before transfer to the device. 
(Refer to the Muiliaa QQSQL Uaera' fiuMfi.) 
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S TATEMENT 

The DIVIDE statement divides one numeric data item into others and sets the 
values of data items equal to the quotient and remainder. 



mnjiK 



{identifier-1 \ «. -■ 

f miQ identifier-2 I fiiJMME J 
literal-1 J 



[, identifier-3 [ amiHILEli ] J 
r ; ON SHE E;iiHOR imperative-statement J 



Format Z- 



{identifier-1 1 f identifier-2 "1 

f lillQ 1 f 

literal-1 J L literal-2 J 



identifier-3 [ aQiUmEIi ] |_ , identifier-M [ ROUNDED ] J 
f ; ON SIZE ERROR imperative-statement J 



Format 3: 



{identifier-1 1 f identifier-2 ^ 

f fil i f flliLIHG 

literal-1 J L literal-2 J 

identifier-3 [ fimmCEIi ] [ , identifier-U [ flfiimDEfi ] J 
^ ; ON SHE EBfiOfl imperative-statement J 
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J identifier-1 1 f identifier-2 1 

JUlLIfifi \ \ IHIQ { > 

L literal-1 J i. literal-2 J 



identifier-3 [ imiMCED ] REMAIMDER identifier-1 
^ ; ON SlZSi ERROR iaperative^statement J 



f identifier-1 ^ f identifier-2 1 

piYiPE t r £x { r 

V. literal-1 J L literal-2 J 



identifier-3 [ fifllUiliED ] REMAIMDRB identifier-4 
[ ; ON SIZ& £MQB imperative-statement ]] 



Syntax Rules: 



Each identifier must refer to an elementary numeric item, except that 
any identifier associated with the GIVING or REHAINDER phrase must 
refer to either an elementary numeric item or an elementary numeric 
edited item. 

Each literal must be a numeric literal. 

The composite of operands, which is the hypothetical data item 
resulting from the superimposition of all receiving data items (except 
the REMAINDER data item) of a given statement aligned on their decimal 
points, must not contain more than 18 digits. 
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General Rules: 

1. When Format 1 is used, the value of identifier-1 or literal-! is 
divided into the value of identlfier-2. The value of the dividend 
(identif ier-2) is replaced by this quotient. This procedure also 
occurs for identifier-1 or literal-1 and identif ier-3, etc. 

2. When Format 2 is used, the value of identifier-1 or literal-1 is 
divided into identifier-2 or literal-2, and the result is stored in 
identifier-3, identifier-4, etc. 

3. When Format 3 is used, the value of identifier-1 or literal-1 is 
divided by the value of identifier-2 or literal-2, and the result is 
stored in identlfler-3, identifier-4, etc. 

t . Formats 4 and 5 are used when a remainder from the division operation 
is desired, namely identif ier-l4 . The remainder in COBOL is .k fined as 
the result of subtracting the product of the quotient ( idv^ntif ier-3) 
and the divisor from the dividend. If identifier-3 is defined as a 
numeric edited item, the quotient used to calculate the remainder is 
an intermediate field which contains the unedited quotient. If 
ROUNDED is used. the quotient used to calculate the remainder is an 
intermediate field which contains the quotient of the DIVIDE 
statement, truncated rather than rounded. 

5. In Formats U and 5, the accuracy of the REMAINDER data item 
(identifier-'J) is defined by the calculation described above. 
Appropriate decimal alignment and truncation (not rounding) will bel 
performed for the content of the data item referenced by identifier-4 , 
as needed. 

6. When the ON SIZE ERROR phrase is used in Formats k and 5, the 
following rules apply: 

a. If the size error occurs on the quotient, no remainder 
calculation is meaningful. Thus, the contents of the data items 
referenced by both identifier-3 and identif ier-J4 will remain 
unchanged. 

b. If the size error occurs on the remainder, the contents of the 
data item referenced by identifier-'* remain unchanged. However, 
as with other instances of multiple results of arithmetic 
statements, analysis must be performed to determine which 
condition has actually occurred, 

7. Refer to "Common Phrases in Statement Formats" earlier in this section 
for an explanation of the uses of the ROUNDED and SIZE ERROR phrases 
and arithmetic statements. 
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EXIT STATRMRUT 

i 

The EXIT stateaent provides a cofflBon end point for a series of procedures. 

General Format: 
£XIZ. 

Syntax Rules: 

1. The EXIT statement must appear in a sentence by Itself. 

2. The EXIT sentence must be the only sentence In the paragraph. 

General Rules: 

1. An EXIT statement serves only to assign a procedure-name to a given 
point in a program. It has no other effect on the compilation or 
execution of the program. 
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GO TO STATEMENT 

The GO TO statement causes control to be transferred from one part of the 
Procedure Division to another. 

Format 1 : 

ilQ TO r procedure-name- 1 J 

Format 2: 

QQ TO procedure-name-1 f , procedure-name-2 J ... 
, procedure-name-n DEPEWDING ON identifier 

Syntax Rules: 

1. A Format 1 GO TO statement, without procedure-name-1, can only appear 
in a single statement paragraph. 

2. When a paragraph is referenced by an ALTER statement, that paragraph 
can consist only of a paragraph header followed by a Format 1 GO TO 
statement. 

3. If a GO TO statement represented by Format 1 appears in a consecutive 
sequence of imperative statements within a sentence, it must appear as 
the last statement in that sequence. 

H . Identifier is the name of a numeric elementary item described with no 
positions to the right of the assumed decimal point. 

General Rules: 

1. When a GO TO statement represented by Format 1 is executed, control is 
transferred to procedure-name-1 or to another procedure-name if the GO 
TO statement has been modified by an ALTER statement. 

2. If procedure-name-1 is not specified in Format 1, an ALTER statement 
referring to this GO TO statement must be executed prior to the 
execution of this GO TO statement. If no such ALTER statement is 
executed, abnormal termination of the object program will result. 

3. When a GO TO statement represented by Format 2 is executed, control is 
transferred to procedure-name-1, procedure-name-2, etc., depending on 
the value of the identifier being 1, 2, ..., n. If the value of the 
identifier is anything other than the positive or unsigned integers 1, 
2, ..., n, then no transfer occurs and control passes to the next 
statement in the normal sequence for execution. 
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IF STATBHRHT 

of throbleef Dro*ra« Sfn^^ ^ condition to be evaluated. The subsequent action 
false! P^osram depends on whether the value of the condition is true or 

General Fornat: 



J atatement-1 If: 
1£ condition ; S f { 



J atatement-1 \ f ; ELSE statement-2 1 



Syntax Rules: 



1. JJ*<^«»enJ-1 and statement-2 represent either an imperative statement 
co^ndiUon^rttaJemint!'''*"^"'' ^"' '''''''' °^" ^« '°''^^^' '^ ^ 

2. The ELSE JEXT SENTENCE phrase can be omitted if it imraediatelv 
precedes the final period of the sentence. imraeaiateiy 



General Rules: 



SScUrf" ^^ statement is executed, the following transfers of control 

^' liJ^rilT'^^^rV' ^f .*'''"®' 3tatement-1 is executed if it is 
!S^^«;4 , ^f statement- 1 contains a procedure branching or 
«o^JiHin2!^ ^fH*^!°*"\' °°"'^'*°1 ^« explicitly transferred ?n 
accordance with the rules of that statement. If statement- 1 does 
Ptip nh2 ,1 procedure branching or conditional statement, the 
ELSE phrase, if specified, is ignored, and control passes to the 
next executable sentence. 

^' ILJr^ H*'°?'^'^^°!! i^ ^''"^ *"<^ ^^^ NEXT SENTENCE phrase is 
?r?i«i!fH ^"^i®**^ f statement- 1, the ELSE phrase, if specified, 
IS ignored, and control passes to the next executable sentence! 

°' SENTEScE°"?!;"?li^ ^^^^^V «,ta'^«»«"t-1 or its surrogate NEXT 
T? I;SfL» f i8"or«^ ^"^ statement-2, if specified, is executed. 
«Lf««^^r contains a procedure branching or conditional 
statement, control is exolicitlv tna»»srer-ed <n acco-"* — -'- --^- 
TrLlfutl °i ^^^^,-t-tement. If state-ment:2lo;s no?" contair ^a 
?hf nfvr ^''^"°^^"8 Of* conditional statement, control passes to 
the next executable sentence. If the ELSE 3tatement-2 phrase is 

SSxt e^^ofJih?; ^^^^^"^"t-1 is ignored, and control passes to the 
next executable sentence. 

**' JL^?r.fH"'^^4°? ^^ r®^" *"** ^^^ ^^SE NEXT SENTENCE phrase is 
SSssil ?n\hf^ivr"*^"^ /^ ignored, if specified, and control 
passes to the next executable sentence. 
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2. Statement-1 or statement-2 may contain an IF statement. In this case, 
the IF statement is considered to be nested. 

IF statements within IF statements can be considered as paired IF and 

ELSE combinations, proceeding from left to right. Thus, any ELSE 

encountered is considered to apply to the immediately preceding IF 
that has not been already paired with an ELSE. 

3. Refer to "Conditional Expressions" earlier in this section for a 
discussion of conditions. 
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IMSPECI STATEMENT 

The INSPECT statement provides the ability to tally (Format 1), replace 
(Format 2), or tally and replace (Format 3) occurrences of single characters or 
groups of characters in a data item. 



F qrmat 1 : 



Ili5£££l ldentifier-1 TALUIHG 



, identifier-2 £QB 



.ff 



ALL •% r identifler-3 "Y 1 

. ^l.£AIiIlIfi Jiliteral-1 J> 



{fifiEQEE \ r ldentifier-4 \ 

f INITIAL \ f 

AEIEB. J I literal-2 J 



Format 2i 



IMfiEfiSll identifier-1 BEPLA(;iMC 



{identifier-el f fiEEQBE 1 f identifier-7 "\ 

I \ > INITIAL \ > 

llteral-t J L AFTER J I. literal-5 J 



(ALL 1 f identifier-5 1 f ldentifier-6 1 
LEAfiiHfi f * > i r OX 1 r 

FiaSI J ^. literal-3 J I literal-4 J 



{BEFQBE 
AFTER 



J 



INITIAL 



I' identifier-7 1 
literal-5 J 
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Format ^: 



IHSEfiCI identifier- 1 TALLY T Mr. 



, identlfier-2 EQS 



f f ALL "^ r identifier-3 \ 1 

. 1 iLEAIillifi / 1 literal-1 / f 

L CHARACTERS '' ^ "'J 



L L A£l£fi 



)r identifier-^ "1 
INITIAL \ > 

L literal-2 J 



REPLA CTWr. 



ilHAaAClEaS fli 



{identlfier-6 1 I f fiEEflSfi 1 f identifler-7 1 I 

literal-l J [ L AElEfi J L literal-5 J J 



(ALL 
L£Aimia 
FIRST 



) ■{ 



identifier-5 
literal-3 



}r identifier-6 "\ 
fil 1 f 

L literal-t J 



L I AFTER J 



INITIAL 



{identifier'-? 1 
literal-5 J 



■ 


• 


■ 




• a • 


' - . . 


■ 


« 





Syntax Rules: 



Identifier-1 must feference either a group item or any category of 
elementary iteri. described (either implicitly or explicitly) as USAGE 
IS DISPLAY. 

Identifier-3 identifier-n must reference either an elementary 

alphabetic, alphanumeric, or numeric item described (either implicitly 
or explicitly) as USAGE IS DISPLAY. 

Each literal must be nonnumeric and can be any figurative constant, 
except ALL. 
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Fopmata 1 and ^ Qnly- 

1. Identifier-2 must reference an elementary nuiBeric data item. 

^' ^f ^^^^1^ literal-1 or llteral-2 is a figurative constant, the 
figurative constant refers to an implicit one-character data item. 



Formats 2 and ^ OnTy- 



1. 



3. 



The size of the data referenced by literal-4 or identifier-6 must be 
equal to the size of the data referenced by literal-3 or identifier-5. 
When a figurative constant is used as literal-4, the size of the 
figurative constant is equal to the size of literal-3 or the size of 
the data item referenced by identlfier-5. 

When the CHARACTERS phrase is used, literal-^l, literal-b, or the size 
of the data item referenced by identifier-6, identifier-? must be one 
character in length. 

When a figurative constant is used as literal-3, the data referenced 
by literal-i» or identifier-6 must be one character in length. 



General Rules: 



Inspection (which includes the comparison cycle, the establishment of 
boundariesfor the BEFORE or AFTER phrase, and the mechanical tallying 
an.i,or ref;laoing) begins at the leftmost character position of the 
data item referenced by identifier-1 , regardless of its class, and 
proceeds from left to right to the rightmost character position as 
described in general rules ^J through 6. 

For use in the INSPECT statement, the contents of the data item 
referenced by identifier-1, identifler-3, identif ier-J< , identifier-5, 
identifier-6, or identifier-7 will be treated as follows: 

a. If any of identifier-1, identif ier-3, identifier-M, identifier-5, 
identifier-6, or identifier-? are described as alphanumeric, the 
INSPECT statement treats the contents of each such identifier as 
a character-string. 

b. If any of identifier-1, ldentifier-3, identifler-i« , identifier-5, 
identifier-6, or identifier-? are described as alphanumeric 
edited, numeric edited, or unsigned nuaerie, the data item is 
inspected as though it had been redefined as alphanumeric (see 2a 
above.) and the INSPECT statement had been written to reference 
the redefined data item. 

e. If any of identifier-1, identifier-3, identifier-l, identifier-5, 
identifier-6, or identifier-? are described as signed numeric, 
the data item is inspected as though it had been moved to an 
unsigned numeric data item of the same length and then the rules 
in 2b above had been applied. (Refer to the MOVE statement.) 
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3. In general rules 4 through 6, and the specific rules for Formats 1, 2, 
and 3 which follow, all references to literal-1, literal-2, literal-3, 
literal-'4, and literal-5 apply equally to the contents of the data 
item referenced by identif ier-3, identif ier-4 , identif ier-5, 
identif ier-6, and identif ier-7, respectively. 

4. During inspection of the contents of the data item referenced by 
identif ier-1 , each properly matched occurrence of literal-1 is tallied 
(Formats 1 and 3) and/or each properly matched occurrence of literal-3 
is replaced by literal-'* (Formats 2 and 3). 

5. The comparison operation to determine the occurrences of literal-1 to 
be tallied and/or the occurrences of litera]-3 to be replaced, occurs 
as follows: 

a. The operands of the TALLYING and REPLACING phrases are considered 
in the order they are specified in the INSPECT statemen , from 
left to right. The first literal-1, literal-3 is comparel to an 
equal number of contiguous characters, starting with the leftmost 
character position in the data item referenced by identif ier- 1 . 
Litoral-1, literal-3 and that portion of the contents of the data 
item refer'enced by identifier-1 match only if they are equal, 
character for character. 

b. If no match occurs in the comparison of the first literal-1, 
literal-3, the comparison is repeated with each successive 
literal-1, literal-3, if any, until either a match is found or 
there is no next successive literal-1, literal-3. When there is 
no next successive literal-1, literal-3, the character position 
in the data item referenced by identifler-1 immediately to the 
right of the leftmost character position considered in the last 
comparison cycle is considered as the leftmost character 
position, and the comparison cycle begins again with the first 
literal-1, llteral-3. 

c. Whenever a match occurs, tallying and/or replacing takes place as 
described in the specific rules for Formats 1 and 2. The 
character position in the data item referenced by identifier-l 
immediately to the right of the rightmost character position that 
participated in the match is now considered to be the leftmost 
character position of the data item referenced by Identif ier- 1 , 
and the comparison cycle starts again with the first literal-1, 
literal-3. 

d. The comparison operation continues until the rightmost character 
position of the data item referenced by identifier-1 has 
participated in a match or has been considered as the leftmost 
character position. When this occurs, inspection is terminated. 

e. If the CHARACTERS phrase is specified, an implied one-character 
- operand participates in the cycle described in paragraphs 5a 

through 5d above, except that no comparison to the contents of 
the data item referenced by identifier-1 takes place. This 
implied character is considered always to match the leftmost 
character of the contents of the data item referenced by 
identifier-1 participating in the current comparison cycle. 
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ISp,^Dp"''^!i^!22^«P®r^'^^°" defined in general rule 5 is affected by the 
BEFORE and AFTER phraaea as folloMs: 

a. If the BEFORE or AFTER phrase is not specified, literal- 1 
literal-3, or the implied operand of the CHARACTERS phrase 
participates xn the comparison operation as described in general 
rule 5. 

^' ]U^^^,^l^^^^ phrase is specified, the associated literal-1, 
ilteral-3, or the implied operand of the CHARACTERS phrase 
participates only in certain comparison cycles, namely those 
which involve that portion of the contents of the data item 
referenced by identifier-1 from its leftmost character position 
up to, but not including, the first occurrence of literal-2. 
,: rfi:^ within the contents of the data item referenced by 
identifier-1. The position of this first occurrence is 
determined before the first cycle of the comparison operation 
described m general rule 5 is begun. If, on a-iy comparison 
rM^ifAr^Dc^''^ :^' literal-3, or the implied operand of the 
CHARACTERS phrase IS not eligible to participate, it is 
considered not to match the contents of the data item referenced 
by identifier-1. If there is no occurrence of literal-2, 
•: ffi." "i*^"^^" the contents of the data item referenced by 
identifier-1, its associated literal-1, literal-3, or the implied 
operand of the JHARACTERS phrase participates in the comparison 
operation as though the BEFORE phrase had not been specified. 

c. If the AFTER phrase is specified, the associated literal-1, 
llteral-3, or the implied operand of the CHARACTERS phrase can 
participate only in certain comparison cycles, namely those which 
involve that portion of the contents of the data item referenced 
«y identifier-l from the character position immediately to the 
rignt or cne rightmost character position of the first occurrence 
of literal-2, literal-5 within the contents of the data item 
referenced by identifier-1 and the rightmost character position 
of the data item referenced by ldentifier-1 . The position of 
this first occurrence is determined before the first cycle of the 
comparison operation described in general rule 5 is begun. If 
on any comparison cycle, llteral-1, literal-3, or the implied 
operand of the CHARACTERS phrase is not eligible to participate. 
It is considered not to match the contents of the data item 
referenced by identifier-1. If there is no occurrence of 
llteral-2, literal-5 within the contents of the data item 
referenced by identifier-1, its associated literal-1, literal-3 
or the implied operand of the CHARACTERS phrase is never eligibl4 
to participate in the comparison operation. 
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Format 1 



The contents of the data item referenced by identifier-2 are not 
initialized by the execution of the INSPECT statement. 

The rules for tallying are as follows: 

a. If the ALL phrase is specified, the contents of the data item 
referenced by identifier-2 are incremented by one for each 
occurrence of literal-1 matched within the contents of the data 
item referenced by identifier-1 . 

b. If the LEADING phrase is specified, the contents of the data item 
referenced by identifier-2 are incremented by one for each 
contiguous occurrence of literal-1 matched within the contents of 
the data item referenced by identifier-1, provided the leftmost 
such occurrence is at the point where comparison be, an in the 
first comparison cycle in which llteral-1 was eligible to 
participate. 

c. If the CHARACTERS phrase is specified, the contents of the data 
item referenced by identifier-? are incremented by one for each 
character matched, in the sense of general rule 5e, within the 
contents of the data item referenced by identifier-1. 

d. Overlapping operands are not permitted. 



Format 2: 



The required words ALL, LEADING, and FIRST are adjectives that 
to each succeeding BY phrase until the next adjective appears. 

The rules for replacement are as follows: 



apply 



When the CHARACTERS phrase is specified, each character matched, 
in the sense of general rule 5e, in the contents of the data item 
referenced by identifier-1, is replaced by literal-4. 

When the adjective ALL is specified, each occurrence of literal-3 
matched in the contents of the data item referenced by 
identlfier-1 , is replaced by literal-4. 

When the adjective LEADING is specified, each contiguous 
occurrence of literal-3 matched in the contents of the data item 
referenced by identifier-1 is replaced by literal-^, provided the 
leftmost occurrence is at the point where comparison began in the 
first comparison cycle in which literal-3 was eligible to 
participate. 

When the adjective FIRST is specified, the leftmost occurrence of 
literal-3 matched within the contents of the data item referenced 
by identifier-1 is replaced by literal-M. 
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Format 3: 



1. 



A Format 

successiv 

written 

TALLYING 

statement 

REPLACING 

statement 

the Forma 

replacing 



3 INSPECT statement is interpreted and executed as though two 

e INSPECT statements specifying the same identifier-! are 

One of these statements is a Format 1 statement with 

phrases identical to those specified in the Format 3 

, and the other statement is a Format 2 statement with 

phrases identical to those specified in the Format 3 

The general rules given for matching and tallying apply to 

t 1 statement and the general rules given for matching and 

apply to the Format 2 statement. 



Examples of INSPECT Statement ; 

Following are six examples of the INSPECT statement: 
Example 1 : 

INSPECT word TALLYING count FOR LEADING "L" BEFORE INITIAL "A" count-1 FOR 
LEADING "A" BEFORE INITIAL "L" 

Where word s LARGE, count = 1, count-1 =0 
Where word = ANALYST, count =0, count-1 =1 

Example 2 ; 

INSPECT word TALLYING count FOR ALL "L" REPLACING LEADING "A" BY "E" AFTER * 
INITIAL "L» 

Where word = SALAMI , count = 1 , word = SALEMI 
Where word = LATTER, count s 1, word = LETTER 

Example 3 : 

INSPECT word REPLACING ALL "A" BY "G" BEFORE INITIAL "X" 

Where word = ARXAX, word = GRXAX 
Where word - HANDAX, word : HGNDGX 

Example 1 ; 

INSPECT word TALLYING count FOR CHARACTERS AFTER INITIAL "J" REPLACING ALL 
"A" BY "B" 

Where word = ADJECTIVF. count ^ 6, word - BDJECTIVE 
Where word = JACK, count = 3, word = JBCK 
Where word =■ JUJMAB, count = 5, word : JUJHBB 

Example 5 : 

INSPECT word REPLACING ALL "X" BY "Y", "B" BY "Z", "W" BY "Q" AFTER INITIAL 
"R" 

Where word = RXXBQWY, word = RYYZQQY 
Where word = YZACDWBR, word = YZACDWBR 
Where word = RAWRXEB, word = RAQRYEZ 
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Example 6 : 



INSPECT word REPLACING CHARACTERS BY "B" BEFORE INITIAL "A" 

word before 12 X Z A B C D 
word after BBBBBBBBBBBBBBBA BCD 
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MOVE STATRMRHT 

The MOVE statement transfers data, in accordance with the rules for 
editing, to one or more data areas. 



gormat. l; 



{ identifier- 1 1 
literal J 



Ifl identifier-2 [[ , identifier-3 J 



Eormat^ g: 



f QSiM 

CORRESPOWnTHP. 



} 



Hfllfi 1 f identifier-1 Ifl identifier-2 



Syntax Rules: 



2. 
3 = 



Identifier-1 and literal represent the sending area; identifier-2, 
identlfier-3, ..., represent the receiving area. 

CORR is an abbreviation for CORRESPONDING. 

When the CORRESPONDING phrase is used, both identifiers must be group 



4. An index data item cannot appear as an operand of a MOVE statement. 



General Rules: 



1. 



2, 



If the CORRESPONDING phrase is specified, selected items within 
identifier-1 are moved to selected items within identifier-2, 
according to the rules given for the CORRESPONDING phrase in this 
section. The results are the same as if the user refers to each pair 
of corresponding Identifiers in separate MOVE statements. 



first to 



rules referring to 



The data designated by the literal or identifier-1 is moved 

identifier-2, t.hen to identifier-S, .... Th 

identifier-2 also apply to the other receiving areas. Any 

subscripting or indexing associated with identifier-2, ,.., is 

evaluated immediately before the data is moved to the respective data 

item. 
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Any subscripting or indexing associated with identifier-1 is evaluated 
only once, immediately before data is moved to the first of the 
receiving operands. The result of the statement 

MOVE a (b) TO b, c (b) 

is equivalent to: 

MOVE a (b) TO temporary operand 
MOVE temporary operand TO b 
MOVE temporary operand TO c (b) 

3. Any MOVE in which the sending and receiving items are both elementary 
items is an elementary move. Every elementary item belongs to one of 
the following categories: numeric, alphabetic, alphanumeric, numeric 
edited, alphanumeric edited. These categories are described in the 
PICTURE clause. Numeric literals belong to the category numeric, and 
nonnumeric literals belong to the category alphanumeric. The 
figurative constant ZERO belongs to the category numeric'. The 
figurative constant SPACE belongs to the category alphabetic. All 
other figurative constants belong to the category alphanumeric. 

The following rules apply to an elementary move between these 
categories : 

a. The figurative constant SPACE, a numeric edited, alphanumeric 
edited, or alphabetic data Item must not be moved to a numeric or 
numeric edited data item. 

b. A numeric literal, the figurative constant ZERO, a numeric data 
item or a numeric edited data item must not be moved to an 
alphabetic data Item. 

c. A noninteger numeric literal or a noninteger numeric data item 
roust not be moved to an alphanumeric or alphanumeric edited data 
item. 

d. All other elementary moves are legal and are performed according 
to the procedures given in general rule M below. 

4. Any necessary conversion of data from one form of internal 
representation to another takes place during legal elementary moves, 
along with any editing specified for the receiving data item: 

a. When an alphanumeric edited or alphanumeric item is a receiving 
item, alignment and any necessary space-filling takes place as 
defined under "Standard Alignment Rules" in Section II. If the 
size of the sending item is greater than the size of the 
receiving item, the excess characters are truncated on the right 
after the receiving item is filled. If the sending item is 
described as being signed numeric, the operational sign is not 
moved; if the operational sign occupied a separate character 
position (refer to the SIGN clause), that character is not moved 
and the size of the sending item is considered to be one less 
than its actual size (in terms of standard data format 
characters) . 
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b. When a numeric or numeric edited item is the receiving item, 

alignment by decimal point and any necessary zero-filling takes 

place as defined under "Standard Alignment Rules," except where 
zeros are replaced because of editing requirements. 

o When a signed numeric item is the receiving item, the sign 
of the sending item is placed in the receiving item. 
Conversion of the representation of the sign takes place as 
necessary. If the sending item is unsigned, a positive sign 
is generated for the receiving item. 



o When an unsigned numeric item is the receiving item, tne 
absolute value of the sending item is moved and no 
operational sign is generated for the receiving item. 

o When a data item described as alphanumeric is the sending 
Item, data is moved as if the sending item were described as 
an unsigned numeric integer. 

c. When a receiving field is described as alphabetic, justification 
«Q? ^"^. necessary space-filling takes place as defined under 
"Standard Alignment Rules." If the size of the sending item is 
greater than the size of the receiving item, excess characters 
are truncated on the right after the receiving item is filled. 

Any MOVE that is not an elementary move is treated exactly as if it 
were an alphanumeric-to-alphanuraeric elementary move, except that 
there is no conversion of data from one form of internal 

fn';'!rCf?H'°r ^° .T^'^^r- ^" ^"°^ ^ '"°^«' ^he receiving area is 
filled without consideration for the individual elementary or group 
items contained within either the sending or receiving area, except as 
noted in general rule t\ of the OCCURS clause. except as 

Table 7-3 summarizes the validity of the various types of MOVE 
statements. The reference to a general rule indicates the rule that 
either prohibits the move or describes the actions of a valid move 



Table 7-3. Valid Types of MOVE Statements 



Category of 

Sending 

Data Item 



Alphabetic 
Alphanumeric 
Alphanumeric Edited 



Numeric 



{Integer 
Noninteger 



Numeric Edited 



i^ 



Alphabetic 
Valid/i»c 



Valid/i<c 

Valid/iJc 

Invalid/3b 

Invalid/3b 

Invalld/3b 



«0.r-v of Receiving Hat.^ Tf»„^ 



Alphanumeric Edited 
Alphanumeric 



Valid/4a 

Valid/i<a 

Valid/ila 

Valid/4a 

Invalld/3c 

Valid/ita 



Numeric Integer 
Numeric Noninteger 
Numeric Edited 



Invalid/3a 

Valid/iJb 

Invalid/3a 

Valid/4b 

Valld/iJb 

Invalid/3a 
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MULTIPLY STATRMEKI 

The MULTIPLY statement causes numeric data items to be multiplied and sets 
the values of data items equal to the results. 



Format 1 ; 

MULTIPLY 



fidentifier-1 1 
f BY ldentlfier-2 [ fiflUliI!£fi 1 
literal-1 J . ^ -• 



[, identifler-3 [ RIiM£Efi ] j ... 

[ ; ON 5I2E EMQR imperative-statement ] 



Format 2: 



r identifler-1 1 f identifier-2 "l 

^^^^^'^^^^ L literal-1 J ^ I Uteral-2 J ""^^^ i<^entifier-3 [ MlMmi ] 



_, Identifier-I ^ RQUWDgD ] J ... 

_ ; ON SHE ElMfl imperative-statement 1 



Syntax Rules: 



at 





1. Each identifier must refer to a numeric elementary item, except tha 
in Format 2 each identifier following the word GIVING must refer t 
either an elementary numeric item or an elementary numeric edited 
item. 

2. Each literal must be a numeric literal. 

3. The composite of operands, which is that hypothetical data item 
resulting from the superimposition of all receiving data items of a 
given statement aligned on their decimal points, must not contain more 
than 18 digits. 
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General Rules: 



1. When Format 1 is used, the value of identifier-1 or literal-1 is 
multiplied by the value of identifier-2. The value of the multiplier 
(identifier-2) is replaced by this product. Similar action occurs for 
identifier-1 or literal-1 and identifier-3, etc. 

2. When Format 2 is used, the value of identifier-1 or literal-1 is 
multiplied by identifier-2 or literal-2, and the product is stored in 
identifier-3, identifier-4, etc. 

3. Refer to "Common Phrases in Statement Formats" earlier in this section 
for an explanation of the uses of the ROUNDED and SIZE ERROR phrases 
and arithmetic statements. 
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proceI!;res'^'S;\o'?eturf oontr^l'lioli.lM''^^^"'''^' explicitly to one or more 
procedure is complete °°"trol implicitly whenever execution of the specified 



Format 1 : 

I f IMU 

I lliififlMli 
Format ? : 



£M£QM procedure-name- 1 \< ^^ j procedure-name-2 ] 



Format ^- 



\f^^ 1 1 fidentifier-ll 

I I f procedure-name-2 I < > 

I llimimJ J linteger-1 J 



£UE^m procedure-name-1 N „_..„„_ . , > ^^^^^ 



IL^IQM procedure-name-l [ [^^ } procedure.name-2 j Mm condition- 1 
Format U: 

PERFORM procedure-name-1 ' ^ "^^^^ * 



] 



Kami 1 1 

f procedure-name-2 I 
liiMUfiii J J 

VARYING f ^^«"'^i^i«''-2 1 ^_ r identifier-3 \ 

' ' *''^ ^ ""' I , f lEQh 1 index-name-2 / 

L index-name-1 J L iiteral-1 J 

{identifier-i» 1 
f 
literal-2 J 



imUL condition-1 
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AFTER 



Bl 



{Hentifier-5l f irientifier-6 1 

. , f ElflM i index-name-4 > 

index-name-3 J L literal-3 J 

{identifier-7 T 
literal-JJ J 



UNTIL condition-2 



[AFTER I" ^^^"'^i^i«''-8 1 ^ r identifier-9 1 

^^^^^ I . , f EBfiM j index-narae-6 i 

^ index-narae-5 J I literal-5 J 



11 



{identifier-10 "1 
literal-6 J 



UNTIt. condition 



•■] 



Syntax Rules: 



b. 



numeric integer. ^^-^mat z, identifier-1 must be described as a 
Each literal represents a numeric literal. 
The words THRU and THROUGH are equivalent. 

If an index-name is specified in the VARYING or AFTER phrase, then: 
" IStegerSa'fa'ue;.''' associated FROM and BY phrases must be an 
Integer!''' '" ''" associated FROM phrase must be a positive 
'' Inlelil""^' '" ''" associated BY phrase must be a nonzero 
If an index-name is specified in the FROM phrase, then: 
'* aS'in?ISer'da[a1te«! ^''^""'^'^^ ^*«^^''° ^^ AF7.R phrase must be 
'' daL'u^i'''"'* '" ''^ associated BY phrase must be an integer 

c. The literal in the associated BY phrase must be an integer. 
A literal in the BY phrase must not be zero. 
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7. Conditlon-1, condition-2, condition-3 can be any conditional 
expression as described under "Conditional i-xpressions" earlier in 
this section. 

8. Where procedure-name-1 and procedure-name-2 are both specified and 
either is the name of a procedure in the declarative section of the 
program, both must be procedure-names in the same declarative section. 



General Rules; 



1. Data items referenced by identlfler-J4 , identif ler-7, and identifier- 10 
must not have a zero value. 



an 



2. If an index-name is specified in the VARYING or AFTER phrase, and 

identifier is specified in the associated FROM phrase, then the data 
item referenced by the identifier must have a positive value. 

3 When the PERFORM statement is executed, control is transferred to the 
first statement of the procedure named procedure-name-1 (^except as 
indicated in general rules 6b, 6c, and 6d ) . This transier oi eon.rgl 
occurs only once for each execution of a PERFORM statement. For those 
cases where a transfer of control to the named procedure does take 
p?ace, an implicit transfer of control to the next e>^ecutable 
statement following the PERFORM statement is established as follows. 

a. If procedure-name-1 is a paragraph-name and procedure-name-2 is 
not specified, then the return is after the last statement of 
procedure-name-1 . 

b. If procedure-name-1 is a section-name and procedure-name-2 is not 
specified, then the return is after the last statement of the 
last paragraph in procedure-name-1. 

c If procedure-name-2 is specified and it is a paragraph-name, then 
the return is after the last statement of the paragraph. 

d If procedure-name-2 is specified and it is a section-name, then 
the return is after the last statement of the last paragraph in 
the section. 

H. There is no necessary relationship between procedure-name-1 and 
procedure-name-2 except that a consecutive sequence of operations is 
to be executed beginning at the procedure named procedure-name-1 and 
ending with the execution of the procedure named procedure-narae-Z. m 
oarticular. GO TO and PERFORM statements can occur between 
procedure-name-1 and the end of procedure-name-2. If there are two or 
more logical paths to the return point, then procedure-name-2 can be 
the narni of a paragraph consisting of the EXIT statement, to which all 
of these paths must lead. 

5. If control passes to these procedures by means other than a PERFORM 
statement control will pass through the last statement of the 
proceSuJe'to ?Se Sext executable statement as if no PERFORM statement 
mentioned these procedures. 
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6. PERFORM statements operate as follows, with rule 5 above 
all formats: 



to 



a. Format 1 is the basic PERFORM statement = A procedure referenced 
by this type of PERFORM statement is executed once and then 
control passes to the next executable statement following the 
PERFORM statement. 

b. Format 2 is the PERFORM. . .TIMES. The procedures are performed 
the number of times specified by integer- 1 or by the initial 
value of the data item referenced by identifier-1 for that 
execution. If, at the time of execution of a PERFORM statement, 
the value of the data item referenced by identifier-1 is equal to 
zero or is negative, control passes to the next executable 
statement following the PERFORM statement. Following ttie 
execution of the procedures the specified number of times, 
control is transferred to the next executable statement following 
the PERFORM statement. 

During execution of the PERFORM statement, references to 
identifier-1 cannot alter the number of times the procedures are 
to be executed from that indicated by the initial value of 
identifier-1 . 

c. Format 3 is the PERFORM. . .UNTIL , The specified procedures are 
performed until the condition specified by the UNTIL phrase is 
true. When the condition is true, control is transferred to the 
next executable statement after the PERFORM statement. If the 
condition is true when the PERFORM statement is entered, no 
transfer to procedure-name- 1 takes place, and control is passed 
to the next executable statement following the PERFORM statement, 

d. Format U is the PERFORM. . .VARYING . This variation of the PERFORM 
statement is used to augment the values referenced by one or more 
identifiers or index-names in an orderly fashion during the 
execution of a PERFORM statement. In the following discussion, 
every reference to identifier as the object of the VARYING, 
AFTER, and FROM (current value) phrases also refers to 
index-names. When index-name appears in a VARYING and/or AFTER 
phrase, it is initialized and subsequently augmented (as 
described below) according to the rules of the SET statement. 
When index-name appears in the FROM phrase, identifier, when it 
appears in an associated VARYING or AFTER phrase, is initialized 
according to the rules of the SET statement; subsequent 
augmentation is as described in Figures 7-1, 7-2, and 7-3. 

In Format 4, when one identifier is varied, id' ntifier-2 is set 
to the value of literal-1 or the current value of identifier-3 at 
the point of initial execution of the PERFORM statement; then, if 

procedures, procedure-name- 1 through procedure-name-2, is 
executed once. The value of identifier-2 is augmented by the 
specified increment or decrement value (the value of identifier-i4 
or literal-2), and condition-1 is evaluated again. The cycle 
continues until this condition is true; at which point, control 
is transferred to the next executable statement following the 
PERFORM statement. If condition-1 is true at the beginning of 
execution of the PERFORM statement, control is transferred to the 
next executable statement following the PERFORM statement. 
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S 



Set identlfier-2 equal to 
current FROM value 




True 



False 



± 



Execute procedure-name- 1 
THRU procedure-naine-2 



1 



Augment identlfier-2 with 
current BY value 



Figure 7-1. Flowchart for the VARYIKG Phrase of a PERFORM 
Statement Having One Condition 



In Format 
identifie 
identifie 
condition 
next exec 

If CO 

procedure 
by identi 
This cycl 
condition 
to the 
identifie 
reevaluat 
is true; 



4, when two identi 
r-5 are set to 
r-6, respectively. 

1 is evaluated; i 
utable statement; 1 
ndition-2 is 

name-2 is executed 
fier-7 or literal-i4 
e of evaluation and 

is true. When con 
value of literal-3 
r-2 is augmented by 
ed. The PERFORM 
if not, the cycles 



fiers are varied, identifier-2 and 
the current value of identifier-3 and 

After the identifiers have been set, 
f true, control is transferred to the 
f false, condition-2 is evaluated, 
false, procedure-name-1 through 

once, then identifier-5 is augmented 
, and condition-2 is evaluated again. 

augmentation continues until this 
dition-2 is true, ldentifier-5 is set 
or the current value of identif ier-6 , 
identifier-U, and condition-1 is 
statement is completed if condition-1 
continue until condition-1 is true. 



During the execution of the procedures associated with the 
PERFORM statement, any changes to the VARYING variable 
(identifier-2 and index-name-1 ) , the BY variable (identif ier-4) , 
the AFTER variable (identifier-5 and index-name-3) , or the FROM 
variable (identifier-3 and index-name-2) are taken into 
consideration and affect the operation of the PERFORM statement. 
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SNTRANCI 



Set identifier-2 and identifier-5 
to current FROM values 




'U8 



True 



Execute procedure-name- 1 
THRU procedure-name-2 



Set identifier-5 to its 
current FROM value 



current BY value 



HUgmeni laentii ler-i: witn 
current BY value 



Figure 7-2. Flowchart for the VARYING Phrase of a PERFORM 
Statement Having Two Conditions 

At the termination of the PERFORM statement, identifier-5 
contains the current value of identif ier-6. Identlfier-2 has a 
value that exceeds the last used setting by an Increment or 
decrement value, unless condition-1 was true when the PERFORM 
statement was entered, in which case identirier-2 contains the 
current value of identif ier-3. 

When two identifiers are varied, identifier-5 goes through a 
complete cycle (FROM, BY, UNTIL) each time identifier-2 is 
varied. 

For three identifiers the mechanism is the same as for two 
identifiers except that identifier-8 goes through a complete 
cycle each time that .identif ier-5 is augmented by identifier-? or 
literal-lJ, which in turn goes through a complete cycle each time 
identifier-2 is varied. 
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PERFORM 



(|ntranc|) 



Set 

identifier-2, identlfier-5, 

and ldentifier-8 

to current FROM values 




False 




Execute 
procedure-name- 1 
THRU procedure- 
name-2 



Augment 
identifier-8 
with current 

BY value 



True 



True 



True 



Set 


identifier-8 


to its current 


FROM value 



Set 


identifier-5 


to its current 


FROM value 



Augment 
identifier-5 
with current 

BY value 



Augment 
identifier-2 
with current 
BY value 



Figure 7-3. Flowchart for the VARYING Phrase of a PERFORM 
Statement Having Three Conditions 



After the completion of a Format U PERFORM statement, 
identifier-5 and identifier-8 contain the current value of 
identifier-6 and identifier-9, respectively. Identifier-2 has a 
value that exceeds its last used setting by one increment or 
decrement value, unless condition-! is true when the PERFORM 
statement is entered, in which case identifier-2 contains the 
current value of identifier-3. 



7-50 



AS414 



PERFORM 



PERFORM 



If a sequence of statements referred to by a PERFORM st 
includes another PERFORM statement. the sequence of nro 
associated with the included PERFORM must itself either be 
included in, or totally excluded from, the logical sequence r 
to by the first PERFOim. Thus, an active PERFORM statement, 
execution point begins within the range of another active 
statement, must not allow control to pass to the exit of the 
active PERFORM statement; furthermore, two or more such active 
statements may not have a common exit. See the f 
illustrations. 



atement 
cedures 
totally 
eferred 

whose 
PERFORM 

other 
PERFORM 
Hewing 



X PERFORM a THRU m 



X PERFORM a THRU m 



d PERFORM f THRU j 

f _ 

J 

m 



a- 



d PERFORM f THRU j 
h 



f- 



X PERFORM a THRU m 



f 
m 



8. 



9. 



d PERFORM f THRU j 

A PERFORM statement that appears in a section that is not in an 

independent segment can have within its range, in addition to any 

declarative sections whose execution is caused within that range, only 
one of the following: 

a. Sections and/or paragraphs wholly contained in one or more 
nonindependent segments 

D. Sections and/or paragraphs wholly contained in a single 
independent segment 

A PERFORM statement that appears in an independent segment can have 
within its range, in addition to any declarative sections whose 
execution is caused within that range, only one of the following: 

a. Sections and/or paragraphs wholly contained in one or more 
nonindependent segments 

b. Sections and/or paragraphs wholly contained in the same 
independent segment as that PERFORM statement 
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SET STATEMKNT 



The SET statement allows the user to modify the value of external switches. 



General Format 



1 < mnemonic-name-1 > . . • Ifl i f f ... 



Syntax Rules: 



1. Each mnemonic-name must be associated with an external-switch, the 
status of which can be altered by the SWITCH-n phrase in the 
SPECIAL-NAMES paragraph. 



General Rules: 



The status of each external-switch associated with the specified 
mnemonic-name is modified such that the truth value resultant from the 
evaluation of a condition-name associated with that switch will 
reflect an ON status if the ON phrase is specified, or an OFF status 
if the OFF phrase is specified. (Refer to "Switch-Status Condition" in 
this section. ) 
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STOP STATEMEWT 

The STOP statement causes a permanent or temporary suspension of the 
execution of the ol^j«et program. 



General Format: 



{BUM 1 
f 
literal J 



Syntax Rules: 



1. The literal can be numeric or nonnumeric or can be any figurative 
constant, except ALL. 

2. If a STOP HUN statement appears in a consecutive sequence of 
imperative statements within a sentence, it must appear as the last 
statement in that sequence. 



General Rules: 



1. Tf* t.hi* RUM nhriasa 4 o iiaA/4 t-V>B ^\s *^^t- .>_^>_._ <- v.. ka. i. . '> 

• - — — .-. ..«.., ,,.., _,„w ^u ».««>>., «»»f^ wwj<2wv |/> w^A aui 4.0 ui'uuKiib i»o nurmai. 

termination. 

2. If the STOP literal is specified, the literal and the program-name are 
communicated to the user's terminal, and a new level of the command 
processor is established. The user can resume execution of the 
program at the next executable statement by using the Multics start 

command . 

3. Refer to the the Hultifia QOSOL iiasral Oiiidfi for additional information 

on the STOP statement. 
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STRING 



STRIMG STATRMFM7 

The STRING statement provides juxtaposition of the partial or complete 
contents of two or more data items into a single data item. 



General Format: 



Slflimi 



PELIMITEP BY 



fidentifier-1 1 j , identifier-2 j 
literal-1 J L, literal-2 J 

[r identifier-Jt "1 f , identifier-5 "I 
L literal-i< J L, literal-5 J 

ISIQ identifier-7 j[ WITH POINTER identif ier-8 ] 

L ; ON OVERFLOW imperative-statement ] 



PELI M ITEP BY 



{identifier-3 [ 
llteral-3 f 
SliE J 

(identifier-6 | 
literal-6 ( 
SI2£ J 



Syntax Rules: 



1. 
2. 

3. 
5. 



Each literal can be any figurative constant without the optional word 
ALL. 

All literals must be described as nonnumeric literals, and all 
identifiers, except identif ier-8, must be described explicitly or 
implicitly in the USAGE clause as DISPLAY. 



Identifier-7 must represent 
without editing symbols. 



an elementary alphanumeric data item 



Identifier-8 must represent an elementary numeric integer data item of 
sufficient size to contain a value equal to one greater than the size 
of the area referenced by identifier-?. The symbol P may not be used 
in the PICTURE character-string of identif ier-8. 

When identifier-1 , identifier-2, or ldentifier-3 is an elementary 
numeric data item, it must be described as an integer without the 
symbol P in its PICTURE character-string. 
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General Rules: 



STRING 



2. 



4. 



All references to identifier-!, identifler-2, identifler-3, literal-1 

literal-2, and llteral-3 apply equally to identif ier-4, Identif ler-5 ' 

identifier-6, literal-J», lltepal-5, and literal-6, respectively, and 

all recursions thereof. 

Identifier-1, literal-1, identifier-2, literal-2 represent the sending 
items. Identifier-? represents the receiving item. 

Literal-3, identifier-3 indicate the characters delimiting the move. 
If the SIZE phrase is used, the complete data item defined by 
identifier-!, literal-!, identifier-2, literal-2 is moved. When a 
figurative constant is used as the delimiter, it stands for a 
single-character nonnumeric literal. 

When a figurative constant is specified as literal-1, literal-2, 
literal-3, it refers to ao implicit one-character data item whose 
usage is DISPLAY. 



5. When the STRING statement is executed, the transfer of data is 
governed by the following rules: 

a. Those characters from literal-1, literal-2, or from the contents 
of the data item referenced by identifier-1, identifier-2 are 
transferred to the contents of identifier-? in accordance with 
the rules for alphanumeric-to-alphanumeric moves, except that no 
space-filling is provided. (Refer to "MOVE Statement.") 

b. If the DELIMITED BY phrase is specified without the SIZE phrase, 
the contents of the data item referenced by identifier-1. 
identifier-2 or the value of literal-1, literal-2 are transferred 
to the receiving data item in the sequence specified in the 
STRING statement beginning with the leftmost character and 
continuing from left to right until the end of the data item is 
reached, or until the characters specified by literal-3 or by the 
contents of identifier-3 are encountered. The characters 
specified by literal-3 or by the data item referenced by 
identifier-3 are not transferred. 

c. If the DELIMITED phrase is specified with the SIZE phrase, the 
entire contents of literal-1, literal-2 or the contents of the 
data item referenced by identifier-1, identifier-2 are 
transferred, in the sequence specified in the STRING statement, 
to the data item referenced by identifier-? until all data is 
transferred or the end of the data item referenced by 
identifier-? is reached. 
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6. If the POINTER phrase is specified, ldentifier-8 is explicitly 
available to the user, who is responsible for setting its initial 
value. The initial value must not be less than one. 

7. If the POINTER phrase is not specified, the following general rules 
apply as if the user specifies identifier-8 with an initial value of 
one. 

8. When characters are transferred to the data item referenced by 
identif ier-7, the moves react as though the characters are moved one 
at a time from the source into the character position of the data item 
referenced by identifier-? designated by the value associated with 
identifier-8, and identifier-8 is then increased by one prior to the 
move of the next character. The value associated with identifier-8 is 
changed during execution of the STRING statement only by the activity 
specified above. 

9. At the end of the execution of the STRING statement, only the portion 
of the data item referenced by identifier-7 that was references during 
the execution of the STRING statement is changed. All other portions 
of the data item referenced by identifier-7 contain data that was 
present before this execution of the STRING statement. 

10. If at any point at or after initialization of the STRING statement, 
but before execution of the STRING statement is completed, the value 
associated with identifier-8 is either less than one or exceeds the 
number of character positions in the data item referenced by 
identifier-7, no further data is transferred to the data item 
referenced by identif ler-7, and the imperative statement in the ON 
OVERFLOW phrase is executed, if specified. 

11. If the ON OVERFLOW phrase is not specified when the conditions 
described in general rule 10 above are encountered, control is 
transferred to the next executable statement. 
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SUBTRACT 



SUBTRACT STATRMRMT 



„ P® SUBTRACT statement is used to subtract one, or the sum of two or more. 

?ff^. LJ? t it^°^ ^r°'" °"® °'' '"°''« ^^^""'' ^"*^ «e*^ the values of one or mor4 
ibeDS equai. to ttie results. 



^LjbfcJtnSLjt^iBB^L * 



fliteral-1 1 f , Hteral-2 1 
identifier- 1 J L, identifier-2 J 
£1QM identifier-m f RQUNDED 1 

L, identifier-n [ BflUIUiEIi ] J ... 

L ; ON SIZE EMQfl imperative-statement ] 



Format ? ; 



^mu^ ["'""-' ][.— 1... ^f— -« ] 

L identifier-1 J L , identifier-2 J L identifier-™ J 

filUHfi identifier-n [ fiQUMfiC ] [, identifier-o [ IflMIifiD ] ] . 
£ ; ON 2I2E SSMB imperative-statement ^ 
Format ^ : 

CQRRR.Pn.nT»n J ^''^"^i^^— ^ OflM identifier.2 [ fiflmiMfi ] 

[ ; ON S1Z& EMQR imperative-statement 1 
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Syntax Rules: 

1. Each identifier must refer to a numeric elementary item except that: 

o In Format 2, each identifier following the word GIVING must refer 
to either an elementary numeric Item or an elementary numeric 
edited item. 

o In Format 3, each identifier must refer to a group item. 

2. Each literal must be a numeric literal. 

3. The composite of operands must not contain more than 18 decimal 
digits. 

o In Format 1, the composite of operands is determined by using all 
of the operands in a given statement. 

o In Format 2, the composite of operands is determined by using all 
of the operands in a given statement excluding the data items 
that follow the word GIVING. 

o In Format 3, the composite of operands is determined separately 
for each pair of corresponding data Items. 

U. CORR is an abbreviation for CORRESPONDING. 



General Rules: 

1. In Format 1, all literals or identifiers preceding the word FROM are 
added together, this total is subtracted from the current value of 
identifier-m, and the result is stored immediately into identif ier-m. 
This process is repeated, respectively, for each operand following the 
word FROM. 

2. In Format 2, all literals or identifiers preceding the word FROM are 
added together, the sum is subtracted from literal-ra or identifier-m, 
and the result of the subtraction is stored as the new value of 
identifier-n, Identifier-o, etc. 

3. If Format 3 is used, data items in ldentifier-1 are subtracted from 
and stored into corresponding data items in identif ier-2. 

i|. For large operands, the compiler uses the temporary operand described 
under "Arithmetic Statements" earlier in this section. 

5. Refer to "Common Phrases in Statement Formats" earlier in this section 
for uses of the ROUNDED, SIZE ERROR, and CORRESPONDING phrases and 
multiple results. 
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UNSTRING 



UNSTRTwr. ST^TFiHRHT 

The UNSTRING statement causes contiguous data In a sending field to be 
separated and placed into multiple receiving fields. 

General Format: 

UNSTRlur. identifier-1 

MB 

-• Lliteral-l J [ L^J ^ iiteral-2 jj ' 

MIQ identifier-i| [ , liELIMIlfifi IN identif ier-5 ] [ . QQim IN identifier-6 ] 

[ , identifier-7 [ , liELmUfifi IN identifier-S ] [ , QQim IN identifier-9 ] ] 
_WITH PQ I NTEB identifier-io] [ lAUXUIfi IN identifier-1 1 ] 
_ ; ON QYERFLQW imperative-statement ] 



Syntax Rules: 



1. Each literal must be a nonnumeric literal. In addition, each literal 
can be any figurative constant without the optional wo?d III. 

^' f^*"^fj;f®'**o' identifier-2, identifier-3, identifier-5 and 
^' (exSeit'^'^Lt"' Jhr^^^Tl °^" ^* described as either alphabetic 

'** de^l^Mhir"^' "«"^ifie'-9. identif ier-10, and ldentlfier.1 1 must be 
described as elementary numeric integer data items (exceot that thP 
-^ — — . _at.„ov »» uaSu An tne nuxunc cnaraccer-strlng) . 

5. An identifier must not name a level-number 88 entry. 



7-59 



ASII 



UNSTRING UNSTRING 



General Rules: 



1. All references to identifier-2, llteral-1, identifler-4 , identif ier-5, 
and identlfler-6 apply equally to identif ier-3, literal-2, 
identifier-7, identif ier-8, and identlfier-9, respectively, and all 
recursions thereof. 

2. Identifier-1 represents the sending area. 

3. Identifier-^ represents the data receiving area. Identifier-5 
represents the receiving area for delimiters. 

U. Llteral-1 or the data item referenced by identifler-2 specifies a 
delimiter. 

5. Identifier-5 represents the count of the number of characters within 
the data item referenced by identifier-1 isolated by the delimiters 
for the move to identif ier-4. This value does not include a count of 
the delimiter characters. 

6. The data item referenced by identif ier-10 contains a value that 
indicates a relative character position within the area defined by 
identifier-1. 

7. The data item referenced by identifier-1 1 is a counter that records 
the number of data items acted upon during the execution of an 
UNSTRING statement. 

8. When a figurative constant is used as the delimiter, it stands for a 
single-character nonnumeric literal. 

When the ALL phrase is specified, one occurrence or two or more 
contiguous occurrences of literal-1 (figurative constant or not) or 
the contents of the data item referenced by identifier-2 are treated 
as If it is only one occurrence, and this occurrence is moved to the 
receiving data item according to general rule 13d. 

9. When any examination encounters two contiguous delimiters, the current 
receiving area is either space-filled or zero-filled according to the 
description of the receiving area, except when Rule 8 (the ALL phrase) 
applies. 

10. Literal-1 or the contents of the data item referenced by identifier-2 
can contain any character in the computers character set. 

11. Each literal-1 or the data Item referenced by identifier-2 represents 
one delimiter. When a delimiter contains two or more characters, all 
of the characters must be present in contiguous positions of the 
sending item, and in the order given to be recognized as a delimiter. 

12. When two or more delimiters are specified in the DELIMITED BY phrase, 
an OR condition exists between them. Each delimiter is compared to 
the sending field. If a match occurs, the characters in the sending 
field are considered to be a single delimiter. No characters in the 
sending field can be considered a part of more than one delimiter. 

Each delimiter is applied to the sending field in the sequence 
specified in the UNSTRING statement. 
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UNSTRING 



13. When the UNSTRING statement is initiated, the current receiving area 
is the data item referenced by identifier-U. Data is transferred from 
the data item referenced by identifier-! to the data item referenced 
by Identifier-iJ according to the following rules: 

If t4w POINTER phrase is specified, the string of characters 
referenced by identifier-1 is examined beginning with the 
relative character position indicated by the contents of the data 
item referenced by identifier-10. If the POINTER phrase is not 
specified, the string of characters is examined beginning with 
the leftmost character position. 



a. 



b. 



c. 



e. 



f. 



If the DELIMITED BY phrase i 
left to right until either a 
literal-1 or the data i 
encountered. (Refer to gene 
phrase is not specified, 
equal to the size of the cur 
sign of the receiving item i 
character position, the numb 
than the size of the current 



s specified, the examination proceeds 

delimiter specified by the value of 

tem referenced by identifier-2 is 

ral rule 11.) If the DELIMITED BY 

the number of characters examined is 

rent receiving area. However, if the 

s defined as occupyirig a separate 

er of characters examined is one less 

receiving area. 



If the end of the data item referenced by identifier-1 is 
encountered before the delimiting condition is satisfied, the 
examination terminates with the last character examined. 

The characters thus examined (excluding the delimiting 
characters, if any) are treated as an elementary alphanumeric 
data item, and are moved into the current receiving area 
according to the rules for the MOVE statement. 



If the DELIMITER IN phrase is specified, the delimiting 

'" -.~.»ww>. au .211 ^^^«i<:itn,aiy ox (^iiaiiuiiicr J. <J Ucl(,cl icetn 

and are moved into the data item referenced by identifier-5 
according to the rules for the MOVE statement. If the delimiting 
condition is the end of the data item referenced by identifier-1, 
then the data item referenced by identifier-5 is space-filled. 

If the COUNT IN phrase is specified, a value equal to the number 
of characters thus examined (excluding the delimiter characters, 
if any) is moved into the area referenced by identifier-6 
according to the rules for an elementary move. 

If the DELIMITED BY phrase is specified, the string of characters 
is further examined beginning with the first character to the 
right of the delimiter. If the DELIMITED BY phrase is not 
specified, the string of characters is further examined beginning 
with the character to the right of the last character 
transferred. 

After data is transferred to the data item referenced by 
identifier-i*, the current receiving area is the data item 
referenced by ldentifier-7. The activity described in paragraphs 
13b through 13f is repeated until either all the characters are 
exhausted In the data item referenced by identifier-1 or until 
there are no more receiving areas. 
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1i4. The initialization of the contents of the data items associated with 
the POINTER phrase or the TALLYING phrase is the responsibility of the 
user. 

15. The contents of the data item referenced by identif ier-10 is 
incremented by one for each character examined in the data item 
referenced by identif ier-1 . When the execution of an UNSTRING 
statement with a POINTER phrase is completed, the contents of the data 
item referenced by identifier-10 contains a value equal to the initial 
value plus the number of characters examined in the data item 
referenced by identifier-1 . 

16. When the execution of an UNSTRING statement with a TALLYING phrase is 
completed, the contents of the data item referenced by identifier-1 1 
contains a value equal to its initial value plus the number of data 
receiving items acted upon. 

17. Either of the following situations causes an overflow condition- 

a. An UNSTRING statement is initiated, and the value in the data 
item referenced by identifier-10 is less than one or greater than 
the size of the data item referenced by identif ier-1 . 

t. T^ j..-i^- 4.V- ^-^^^..i- < ^v, nf qri iiwsTRTHf: st.atfimen t , all data 

receiving areas have been acted upon, and the data item 

referenced by identifier-1 contains characters that have not been 
examined. 

18. When an overflow condition exists, the UNSTRING operation is 
terminated. If an ON OVERFLOW phrase has been specified, the 
imperative statement included in the ON OVERFLOW phrase is executed. 
If the ON OVERFLOW phrase is not specified, control is transferred to 
the next executable statement. 

19. The evaluation of subscripting and indexing for the identifiers is as 
follows: 

a. Any subscripting or indexing associated with identifier-1, 
identifier-10, identifier-1 1 is evaluated only once, immediately 
before any data is transferred as the result of the execution of 
the UNSTRING statement. 

b. Any subscripting or indexing associated with identif ier-2, 
identifier-3, identif ier-t, identifler-5, identifier-6 is 
evaluated immediately before the transfer of data into the 
respective data item. 
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PESCRIPTION OF TABI.R HftffP! TN^- 

The table handling feature provides a capability for defininir tahi«« ^r 
contiguous data ite».s and for accessing an item relLive tolts Jos'itJL In the 

tables'^'' 'llTitllLr rttttltlts 'a%e"%P^;id:r?o1'"s^S:J°r' variable-length 
descending keys and for searching a dimeSsioi of a tIS?e fon^ .f ."''"^ ""^ 
satisfies a specific condition. ™«n3i0" oi a table for an item that 



b. i Lh?. ? "-'Pestsl as "ar,y tl.es as stated. The Item 1, considered tn 
data-name assigned ?oU?rererlnoe to » Si^^in "' """ ""' "»" » ""'1"^ 

methods u^ed'J: sPeeifrthrSJ^unJi^jrJimt^f o'r^^S^Sfre'rt^Cjr^JLe'n^f.'" '" 

Table n.n,]itn,n 

data 'S.sc%'iS?lo\°:?1Jr?!j?:ni:L"t' S:t°?Se"''?<:?Jlr^l" """ r ''-' "' '*" 



shows 
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Example 1 : 

01 TABLE-1. 

02 TABLE-ELEMENT OCCURS 20 TIMES, 
03 NAME PIC X (15) 
03 ADDRESS PIC X (25) 

Defining a one-dimensional table within each occurrence of an element of 
another one-dimensional table produces a two-dimensional table. To define a 
two-dimensional table, therefore, an OCCURS clause must appear in the data 
description of the element of the table and in the description of only one group 
item containing that table element. To define a three-dimensional table, the 
OCCURS clause should appear in the data description of the element of the table 
and in the description of two group items which contain the element. In COBOL, 
tables of up to three dimensions are permitted. Example 2 shows a table that 
has one dimension for CONTINENT-NAME, two dimensions for COUNTRY-NAME, and three 
dimensions for CITY-NAME and CITY-POPULATION. The table includes 100,510 data 
items: 10 for CONTINENT-NAME, 500 for COUNTRY-NAME, 50,000 for CITY-NAME, and 
50,000 for CITY-POPULATION. Within the table there are 10 occurrences of 
CONTINENT-NAME. Within each CONTINENT-NAME there are 50 occurrences of 
COUNTRY-NAME, and within each COUNTRY-NAME there are 100 occurrences of 
CITY-NAME and CITY-POPULATION. 



Example 2: 



01 CENSUS-TABLE. 

05 CONTINENT-TABLE OCCURS 10 TIMES. 
10 CONTINENT-NAME PIC XXXXXX. 
10 COUNTRY-TABLE OCCURS 50 TIMES. 
15 COUNTRY-NAME PIC XXXXXXXX. 
15 CITY-TABLE OCCURS 100 TIMES. 
20 CITY-NAME PIC XXXXXXXXXX. 
20 CITY-POPULATION PIC 999999999999. 



References to Table Items 

Whenever the user refers to a table element, the reference must indicate 
which occurrence of the element is intended. For access to a one-dimensional 
table, the occurrence number of the desired element provides complete 
information. For access to tables of more than one dimension, an occurrence 
number must be supplied for each dimension of the table accessed. In Example 2 
then, a reference to the fourth CONTINENT-NAME would be complete, whereas a 
reference to the fourth COUNTRY-NAME would not. To refer to COUNTRY-NAME, which 
is an element of a two-dimensional table, the user must refer to the fourth 
COUNTRY-NAME within the sixth CONTINENT-TABLE. 
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One method by which oecurren 
more subscripts to the data-name 
specifies the occurrence number o 
either by a literal that is 
elsewhere as a numeric elementary 
of the assumed decimal point, 
parentheses, is written immediate 
table reference must include as 
table whose element is being refe 
each OCCURS clause in the hi 
data-name itself. In Example 2, 
subscript, references to COUNTR 
and CITY-POPULATION require three 



ce numbers can be specified is to append 
A subscript is an integer whose 

f an element. The subs);ript can be repr 

an integer or by a data-name that is 

item with no character positions to the 

In either case, the subscript, end 

ly following the name of the table eleme 

many subscripts as there are dimensions 

rsnced; i.e., there must be a subscri 

erarchy containing the data-name, includ 

references to CONTINENT-NAME require on 

Y-NAME require two, and references to CI 



one or 
value 
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defined 
right 
osed in 
nt . A 
in the 
P o i o r 
ing the 
ly one 
TY-NAME 



When more than one subscript is required, they are written in orier of 
successively less inclusive dimensions of the data organization. When a 
data-name is used as a subscript, it can be used to refer to items in many 
different tables. These tables need not have elements of the same size. The 
data-name can also appear as the only subscript with one item and as one of two 
or three subscripts with another item. Also, it is permissible to mix literal 
and data-name subscripts; e.g., CITY-POPULATION( 10, NEWKEY, iJ2). Subscripts may 
be written as follows: 



(1A2) 
(A 1 A2) 
(1,A2) . 
( A 1, A2 A) 
(1,A 2 A) 
(A 1, A2) 



(1A 2 A) 



NOTE: A comma used as a separator must be followed by a space, 



Another method of referring to items in a table is indexing. To use this 
technique, one or more index-names are assigned to an item whose data 
description contains an OCCURS clause. There is no separate entry to describe 
the index-name, since its definition Is completely hardware-oriented, and it is 
not considered data per se. At object program execution, the contents of the 
index-name correspond to an occurrence number for that specific dimension of the 
table to which the index-name is assigned. The initial value of an index-name 
at object program execution is not determinable, and the index-name must be 
initialized by the SET statement before use. 



When a reference is made to a table element or to an item within a table 
element, and the name of the item is followed by its related index-name or names 
in parentheses, then each occurrence number required to complete the reference 
is obtained from the respective index-name. The index-narae thus acts as a 
subscript whose value is used in any table reference that specifies indexing. 
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When a reference requires more tnan one occurrence number for completeness, 
a data-name subscript must not be used to indicate one occurrence number and an 
index-name to indicate another. Therefore, if indexing is to be used, each 
OCCURS clause within the hierarchy (each dimension of the table) must contain an 
INDEXED Bl phrase. However, literals and index-names can be mixed within one 
reference, just as literals and data-name subscripts are mixed. 



Table Searching 

Data that has been arranged in the form of a table is often searched. In 
COBOL, the SEARCH statement, through its two options, provides facilities for 
producing serial and nonserial, e.g., binary, searches. When the SEARCH 
statement is used, an associated index-name or data-name can be varied. This 
statement also provides for the execution of imperative statements when certain 
conditions are true. 
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DATA DIVISION FOR TABLE HANDLIMG 

The OCCURS clause eliminates the need for separate entries for repeated 
data items and supplies information required for the application of subscripts 
or indexes. 

Format 1; 

OCCURS integer-2 TIMES 

( KEY IS data-name-2 I , data-name-3 I . . . I . . . 
DESCENDIMG J *• -* J 

|_ INDEXED BY index-name-l £, index-name-2 ] ...J 

Foraat 2' 

OCCURS integer-1 IQ, integer-2 TIMES DEPENDING ON data-name-1 

{Ascewpmq 1 . _ 

f KEY is data-name-2 I , data-name-3 I ... 
PESCEMPIHq J *• •* 

LlfifiEXfifi BY index-name -1 [, index-name-2 ] ...J 

Syntax Rules: 

1. When both integer-1 and integer-2 are used (Format 2), the value of 
integer-1 must be less than the value of integer-2. 

NOTE: Integer-1 ean be zero, 

2. The data description of data-name-1 must describe a positive integer. 

3. Data-name-1, data-name-2, data-naffle-3, ... can be qualified. 
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H. Data-name-2 must be either the naae of the entry containing the OCCURS 
clause or the name of an entry subordinate to the entry containing the 
OCCURS clause. 

5. When used, data-name-3, etc., must be the name of an entry subordinate 
to the group item that is the subject of this data description entry. 

6. An INDEXED BY phrase is required if the subject of this entry, or an 
entry subordinate to this entry, is to be referred to by indexing. 
The index-name identified by this clause is not defined elsewhere 
since its allocation and format are dependent on the hardware and, not 
being data, cannot be associated with any data hierarchy. 

7. A data description entry that contains Format 2 of the OCCURS clause 
can be followed, within that record description, only by data 
description entries that are subordinate to it. 

8. The OCCURS clause must not be specified in a data description entry 
that: 

a. Has a 01, 66, 77, or 88 level-number. 

b. Describes an item whose size la variable. The size of an item is 
variable, if the data description of any subordinate item 
contains Format 2 of the OCCURS clause. 

9. In Format 2, the data item defined by data-name-1 must not occupy a 
character position within the range of the first character position 
defined by the data description entry containing the OCCURS clause and 
the last character position defined by the record description entry 
containing that OCCURS clause. 

10. If data-name-2 is not the subject of this entry, then: 

a. All items identified by the data-names in the KEY IS phrase must 
be within the group item that is the subject of this entry. 

b. Items identified by the data-name in the KEY IS phrase must not 
contain an OCCURS clause. 

c. There must be no entry that contains an OCCURS clause between the 
items identified by the data-names in the KEY IS phrase and the 
subject of this entry. 

11. Index-name-1 , lndex-name-2, .,,, must be unique words within the 
program. 
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OCCURS 



General Rules: 



The OCCURS clause is used in defining tables and other homogeneous 
sets of repeated data items. Whenever this clause is used, the 
data-name that is the subject of this data description entry must be 
either subscripted or indexed, whenever it is referred to in a 
statement other than SEARCH. In addition, if the subject of this 
entry is the name of a group item, all data-names belonging to the 
group must be subscripted or indexed, whenever they are used as 
operands, except as the object of a REDEFINES clause. 

Except for the OCCURS clause itself, all data description entry 
clauses associated with an item whose description includes an OCCURS 
clause apply to each occurrence of the item described. (Refer to 
"VALUE Clause" in Section VI.) 

The number of occurrences of the subject entry is defined as follows: 

a. In Format 1, the value of integer-2 represents the exact number 
of occurrences. 



b. In Format 2, the current value of the data item 
data-name-1 represents the number of occurrences. 



referenced by 



Format 2 specifies that the subject of this entry has a variable 
number of occurrences. The value of integer-2 represents the maximum 
number of occurrences, and the value of integer-1 represents the 
minimum number of occurrences. This does not imply that the length of 
the subject of the entry is variable, but that the number of 
occurrences is variable. 

...- ....^v.'w «. M»..i uava xucui 1 v;ici ctiucu ujT uai-et-nciiiie- 1 muab laii witnin 
the range integer-1 through integer-2. Reducing the value of the data 
item referenced by data-name-1 makes the contents of data items, whose 
occurrence numbers now exceed the value of the data item referenced by 
data-name-1, unpredictable. 

1. When a referenced group item has an entry subordinate to it that 
specifies Format 2 of the OCCURS clause, only that part of the table 
area that is specified by the value of data-name-1 will be used in the 
operation. 

5. The KEY IS phrase is used to indicate that the repeated data is 
arranged in ascending or descending order according to the values 
contained in data-name-2, data-name-3, etc. The ascending or 
descending order is determined according to the rules for comparison 
of operands. (Refer to Comparison of Numeric and Nonnumeric Operands 
under "Relation Conditions" in Section VII.) The data-names are 
listed in their descending order of significance, from most 
significant to least significant. 
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USAGE 



The USAGE clause specifies the format of a data item in memory. 



General Format: 



[ USAGE is] index 



Syntax Rules: 



An index data item can be referenced explicitly only in a SEARCH or 
SET statement, a relation condition, the USING phrase of a Procedure 
Division header, or the USING phrase of a CALL statement. 

The BLANK WHEN ZERO, JUSTIFIED, PICTURE, SYNCHRONIZED, and VALUE 
clauses cannot be used to describe group or elementary items described 
with the USAGE IS INDEX clause. 



General Rules: 



The USAGE clause can be written at any level. If the USAGE clause is 
written at a group level, it applies to each elementary item in the 
group. The USAGE clause of an elementary item cannot contradict the 
USAGE clause of a group to which the item belongs. 

An elementary item described with the USAGE IS INDEX clause is called 
an index data item and contains a value that must correspond to an 
occurrence number of a table element. The elementary item cannot be a 
conditional variable. If a group item is described with the USAGE IS 
INDEX clause, the elementary items in the group are all index data 
items. The group itself is not an index data item and cannot be used 
in the SEARCH or SET statements or in a relation condition. 

An index data item can be part of a group that is referred to in a 
HOVE or input/output statement, in which case no conversion will take 
place. 

The USAGE IS INDEX clause indicates that the data item contains two 
values that point to a particular element within a table. The two 
values are the occurrence index (occurrence number times the size of 
each occurrence) and the occurrence number. Index data items are 
represented by six bytes (nine-bit bytes with bit C of each byte 
unused). The first four bytes contain, in binary form, the occurrence 
index, and the last two bytes contain, in binary form, the occurrence 
number. 

Refer to "Data Allocation Rules" in Section II. 
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PROCEDURE DIVISIOM FOR TABLE HAWDLTMr. 

Relation Condition 

Relation tests can be made between: 

1. Two index-names. The result is the same as if the corresponding 
occurrence numbers were compared. 

2. An index-name and a data item (other than an index data item) or 
literal. The occurrence number that corresponds to the value of the 
index-name is compared to the data item or literal. 

3. An index data item and an index-name or another index data item. The 
actual values are compared without conversion. 

The result of the comparison of an index data item with any data item or 
literal not specified above will result in a compile time fatal diagnostic. 

When a sending and a receiving item in a SET statement share a part of 
their storage areas, the result of the execution of such a statement is 
undefined. 
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SEARCH 



SEARCH Statemftnt 



The SEARCH statement is used to search a table for a table element that 
satisfies the specified condition and to adjust the associated index-name to 
indicate that table element. 



Format 1 



{identifier-2 T I 
index-name- 1 J J 
[ ; AT EMU imperative-statement- 1 ] 

{imperative-statement-2 [ 
NEXT SENTENCE J 



; MUM condition-2 



HEXl SENTENCE 
j imperative-statement-3 



I 



UEU. SMIMQL 



) 



Format 2: 

a£Afi£ii ALL identifier-1 f ; AT ESJl imperative-statement-1 ] 



; umu 



I data-name-1 i 



ISfiSiUALTo'l f identifier-3 *\ 

EflliALS f ] literal-1 > 

J L arithmetic-expression-1 J 



IS = 



condition-name- 1 



MJ2 ' 



data 



f 

-name-2 \ 



IS ifiUAL TO 
IS = 



Hidentifier-4 1 

literal-2 i 

arithmetic-expression-2 J 



condition-name-2 



{imperative-statement-2 
MXI SENTENCE 



) 



NOTE: The required relational character 
confusion with other symbols. 



is not underlined to avoid 
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^^^^^^ SEARCH 



Syntax Rules: 

1. In both Formats 1 and 2, identifier-1 must not be subscripted or 
indexed, but its description must contain an OCCURS clause and an 
INDEXED BY phrase. The description of identifier-1 in Format 2 must 
also contain the KEY IS phrase in its OCCURS clause. 

2. When specified, identifier-2 must be described as USAGE IS INDEX or as 
a numeric elementary item with no positions to the right of the 
assumed decimal point. 

3. In Format 1, condltion-1, condition-2, etc., may be any condition as 
described under "Conditional Expressions" in Section VII. 

4. In Format 2, all referenced condition-names must be defined as having 
only a single value. The data-name associated with a condition-name 
must appear in the KEY phrase of identifier-1. Each data-name- 1, 
data-name-2 may be qualified. Each data-name-1, data-name-2 must be 
indexed by the first index-name associated with identifier-1 along 
with other indexes or literals as required, and must be referenced in 
the KEY phrase of identifier-1. Identifier-3, identifier-i), or 
identifiers specified in arithmetic-expression- 1 , 
arithmetic-expres3ion-2 must not be referenced in the KEY phrase of 
identifier-1 or be indexed by the first index-name associated with 
identifier-1 . 

In Format 2, when a data-name in the KEY phrase of identifier-1 is 
referenced, or when a condition-name associated with a data-name in 
the KEY phrase of identifier-1 is referenced, all preceding data-names 
in the KEY phrase of identifier-1 or their associated condition-names 
must also be referenced. 
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SEARCH SEARCH 



General Rules: 

1. If Format 1 of the SEARCH statement is used, a serial type of search 
operation takes place, starting with the current index setting. 

a. At the start of execution of the SEARCH statement, if the 
index-name associated with identifier-1 contains a value that 
corresponds to an occurrence number that is greater than the 
highest permissible occurrence number for identifier-1, the 
SEARCH is terminated immediately. The number of occurrences of 
identifler-1 , the last of which is the highest permissible, is 
discussed in the OCCURS clause. Then, if the AT END phrase is 
specified, imperative-stateraent-1 is executed; if the AT END 
phrase is not specified, control passes to the next executable 
sentence. 

b. At the start of execution of the SEARCH statement, :f the 
index-name associated with identifier-1 contains a value that 
corresponds to an occurrence number that is not greater than the 
highest permissible occurrence number for identifier-1, the 
SEARCH statement operates by evaluating the conditions in the 
order that they are written, making use of the index settings, 
wherever specified, to determine the occurrence of those items to 
be tested. If none of the conditions are satisfied, the 
index-name for identifier-1 is incremented to obtain reference to 
the next occurrence. The process is then repeated using the new 
index-name settings unless the new value of the index-name 
settings for identifier-1 corresponds to a table element outside 
the permissible range of occurrence values, in which case the 
search terminates as indicated in a. above. If one of the 
conditions is satisfied upon its evaluation, the search 
terminates immediately, and the imperative statement associated 
with that condition is executed; the index-name remains set at 
the occurrence that caused the condition to be satisfied. 

2. In Format 2, the results of the SEARCH ALL operation are predictable 
only when: 

a. The data in the table is ordered in the same manner as described 
in the ASCENDING/DESCENDING KEY phrase associated with the 
description of identifier-1, and 

b. The contents of the keys referenced in the WHEN phrase are 
sufficient to identify a unique table element. 

3. If Format 2 of SEARCH is used, the initial setting of the index-name 
for identifier-1 is ignored, and a binary search operation takes 
place. If any conditions specified in the WHEN phrase cannot be 
satisfied for any setting of the index within the permitted range, 
control is passed to imperative-statement-1 of the AT END phrase, when 
specified, or to the next executable sentence when this phrase is not 
specified; in either case the final setting of the index is not 
predictable. If all conditions can be satisfied, the index indicates 
an occurrence that allows the conditions to be satisfied, and control 
passes to imperative-statement-2. 
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SEARCH SEARCH 



14. After execution of imperatlve-statement-1 , imperative-3tatement-2, or 
imperative-3tatement-3 that does not terminate with a GO TO statement, 
control passes to the next executable sentence. 

5. In Format 2, the index-name used for the search operation is the first 
(or only) index-name that appears in the INDEXED BY phrase of 
identifier-1 . Any other index-names for identifier-1 renain 
unchanged . 

6. In Format 1, if the VARYING phrase is not used, the index-name that is 
used for the search operation is the first (or only) index-name that 
appears in the INDEXED BY phrase of identifier-1. Any other 
index-names for identifier-1 remain unchanged. 

7. In Format 1, if the VARYING index-name-1 phrase is specified, and if 
index-name-1 appears in the INDEXED BY phrase of identifier-1, that 
index-name is used for this search. If this is not the case, or if 
the VARYING identifier-2 phrase is specified, the first (or only) 
index-name given in the INDEXED BY phrase of identifier-1 is used for 
the search. In addition, the following operations occur: 

a. If the VARYING index-name-1 phrase is used, and if index-name-1 
appears in the INDEXED BY phrase of another table entry, the 
occurrence number represented by lndex-name-1 is incremented by 
the same amount as, and at the same time as, the occurrence 
number represented by the index-name associated with identifier-1 
is incremented. 

b. If the VARYING identifier-2 phrase is specified, and identifier-2 
is an index data item, then the data item referenced by 
identifier-2 is incremented by the same amount as, and at the 
same time as- the index associated with identifier-1 is 
incremented. If identifier-2 is not an index data item, the data 
item referenced by identifier-2 is incremented by the value one 
(1) at the same time as the index referenced by the index-name 
associated with identifier-1 is incremented. 

8. If identifier-1 is a data item subordinate to a data item that 
contains an OCCURS clause (providing for a two- or three-dimensional 
table), an index-name must be associated with each dimension of the 
table through the INDEXED BY phrase of the OCCURS clause. Only the 
setting of the index-name associated with identifier-1 (and the data 
item identifier-2 or index-name-1, if present) is modified by the 
execution of the SEARCH statement. To search an entire two- or 
three-dimensional table, it is necessary to execute a SEARCH statement 
several times. Prior to each execution of a SEARCH statement, SET 
statements must be executed whenever index-names must be adjusted to 
appropriate settings. 

9. A flowchart of the Format 1 SEARCH operation containing two WHEN 
phrases appears in Figure 8-1. 
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SEARCH 



SEARCH 




False 



Increment 
index-name for 
identifier-1 
(index-name-1 
if applicable) 



AT END 



True 



True 



Increment 
index-name-1 (for 
a different table) 
or identifier-2 



imperative- 
statement-1 



imperative- 
statenent-2 



imperative- 
atatement-3 



Figure 8-1. Flowchart of Format 1 SEARCH Operation 



^These operations are options included only when specified in the 
SEARCH statement. 

^Each of these control transfers is to the next executable sentence unless 
the imperative statement ends with a GO TO statement. 
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SET Statement 

The SET statement establishes reference points for table handling 
operations by setting index-names associated with table elements. 



Format 1 : 

Ml 



{index-name-1 V, lndex-name-2 j ...1 J index-name-3 [ 

r -, f 10 i identifier-3 f 

identifier-1 ^, identifier-2 J ...J L lnteger-1 J 



format g; 

C-i f HP BI 1 r identif ler-J* 1 
, index-narae-5 J ... ( M f 

L DOWN BY J L integer-2 J 



Syntax Rules: 



1. 

2. 

3. 
ii 



All references to index-name-1, identifier-1, and index-narae-i) apply 
equally to index-name-2, identifier-2, and index-name-5, respectively. 



Identifier-1 and identifier-3 must name either index data 
elementary items described as an integer. 



Items or 



Identifier-i| must be described as an elementary numeric integer, 






Intcjser-I nUat be pOaitiVe, 



General Rules: 



2. 



Index-names are considered related to a given table and are defined by 
being specified in the INDEXED BY phrase. 

If index-name-3 is specified, the value of the index before the 
execution of the SET statement must correspond to an occurrence number 
of an element In the associated table. 



If lndex>'name-1, index 
both before and after 
correspond to an occ» 
table. If index-name-1, 
index after the execut 
occurrence number of an 
case, if an attempt 
number not in the range 
occurs and control is 
Index associated with an 
PERFORM statement may be 



-name-5 is specified, the value of the index 

the execution of the SET statement must 
rrence number of an element in the associated 

index-name-2 is specified, the value of the 
ion of the SET statement must correspond to an 
element in the associated table. In either 
is made to set an index-name to an occurrence 
of its associated table a run-time error 
returned to command level. The value of the 

index-name after the execution of a SEARCH or 

undefined. 
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In Format 1, the following action occurs: 

a. Index-name-1 is set to a value causing It to refer to the table 
element that corresponds in occurrence number to the table 
element referenced by index-name-3, identifier-3, or integer-1. 
If identifier-3 is an index data item, or if index-name-3 Is 
related to the same table as index-name-1, no conversion takes 
place. 

b. If identifier-! is an index data item, it may be set equal to 
either the contents of index-name-3 or identifier-3, where 
identifier-3 is also an index data item; no conversion takes 
place in either case. 

c. If identifier-1 is not an index data item, it may be set only to 
an occurrence number that corresponds to the value of 
index-name-3. Neither identifier-3 nor integer-1 can be used in 
this case. 

d. The process is repeated for index-name-2, identif ier-2, etc., if 
specified. Each time, the value of index-name-3 or identifier-3 
is used as it was at the beginning of the execution of the 
statement. Any subscripting or indexing associated with 
identifier-1, etc., is evaluated immediately before the value of 
the respective data item is changed. 

In Format 2, the contents of index-name-'4 are incremented (UP BY) or 
decremented (DOWN BY) by a value that corresponds to the number of 
occurrences represented by the value of integer-2 or identif ier-^l ; 
thereafter, the process is repeated for lndex-name-5, etc. Each time, 
the value of identifier-^l is used as it was at the beginning of the 
execution of the statement. 

Data in Table 8-1 represents the validity of various operand 
combinations in the SET statement. Each numeric reference indicates 
the applicable foregoing general rule. 



Table 8-1. Operand Combinations in SET Statement 



Sending Item 


Rece 


vinK Item 


Intetter Data Item 


Index-Name 


Index Data Item 


Integer Literal 


Invalid/3c 


Valid/3a 


Invalid/3b 


Integer Data Item 


Invalid/3c 


Valid/3a 


Invalid/3b 


Index-Name 


Valid/3c 


Valid/3a 


Valid/3b 
(See Note. ) 


Index Data Item 


Invalid/3c 


Valid/3a 
(See Note. 


Valid/3b 
(See Note. ) 


NOTE: No convers 


jion takes place. 
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SECTION IX 
FILE INPUT/OUTPUT 



P6$gRIPTI9H OF FI I.S INf -UI/pyTPUT 

File input/output provides the capability for transferring data from an 
external recording device into computer memory (input) or from memory to an 
external recording device (output) with a minimum of concern for the physical 
characteristics of the recording device or the processes required to complete 
the transfer. 



Input/OutPut Organization 

Sequential files are organized such that each record in the file except the 
first has a unique predecessor record, and each record except the last has a 
unique successor record. These predecessor-successor relationships are 
established by the order of WRITE statements when the file is created. Once 
established, the predecessor-successor relationships do not change except in the 
case where records are added to the end of the file. 

Stream organization is a form of sequential organization. A stream file is 
unstructured. Each record on the file is terminated by a new line character. 

Relative file organization is permitted only on files in the virtual memory 
file stream. A relative file consists of records identified by relative record 
numbers. The file can be thought of as composed of a serial string of areas, 
each capable of holding a logical record. Each of these areas is denominated by 
a relative record number. Records are stored and retrieved based on this 
number. For example, the tenth record is the one addressed by relative record 
number 10 and is in the tenth record area, whether or not records have been 
written in the first through the ninth record areas. 

A file whose organization Is Indexed is a file in the virtual memory file 
system in which data records can be accessed by the value of a key associated 
with an index. The index provides a logical path to the date records according 
to the contents of a data item within each record, which is the record key. 

The data item named in the RECORD KEY clause of the file control entry for 
a file is the record key for that file. For the purposes of inserting, 
updating, and deleting records in a file, each record is identified solely by 
the value of its record key. This value must, therefore, be unique and must not 
be changed when updating the record. 
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Access Modes 



In the sequential access mode, records are accessed rn the sequence in 
which the records were originally written (if organization is s^^"«"tial or 
stream), the ascending order of the relative record """"ers of ^^J /JJ^f^J 
within the file (if organization is relative), or the ascending order of the 
record key values (if organization is indexed). 




In the dynamic access mode, the user can alternate from sequential access 
to ranSom access using appropriate forms of Input/output statements. Dynamic 
access is not allowed with sequential or stream organization. 



Current Record Pointer 



The current record pointer is a conceptual entity used in this manual to 
facilitate specification of the next record to be accessed within ^ 8^^^" J^^^ 
The concept of the current record pointer has no meaning for a file opened in 
tHe oSSt mode. The setting of the current record pointer is affected only 
the OPEN, READ, and START atatensents. 



by 



Tnput/Out Put Status 

The description of any file (in the Environment Division SELECT clause) in 
the source program can contain the optional clause: 



FILE STATUS IS data-narae-1 [data-name-2j 






value is 
ion of a 
ore any 



status of that input/output operation 
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STATUS KEY 1 

The leftmost character position of data-narae-1 is known as status key 1 and 
is set to indicate one of the following conditions upon cot^pletion of the 
input/output operation: 

•0' - Successful Completion. The input/output statement was successfully 
executed. 

'1' - At End. The sequential READ statement was unsuccessfully executed 
either as a result of an attempt to read a record when no next 
logical record exists in the file or as a result of the first READ 
statement being executed for a file described with the OPTIONAL 
clause aid that file was not available to the program at the time 
its associated OPEN statement was executed. 

'2' - Invalid Key. The input/output statement was unsuccessfully executed 
because of one of the following conditions: 

o Sequence error 

o Duplicate key 

o No record found 

o Boundary violation 

'3' - Permanent Error. The input/output statement was unsuccessfully 
executed because of conditions such as: 

o File does not exist 

o Read to an unopened file 



STATUS KEY 2 

The rightmost character position of data-name-1 is known as status key 2 
and is used to further describe the results of the input/output operation. This 
character position contains a value as indicated below: 

a. If no further information is available concerning the input/output 
operation, status key 2 contains a value of '0'. 

b. When status key 1 contains a value of '2' (indicating an INVALID KEY 
condition), status key 2 designates the cause of that condition: 

o A value of '1' in status key 2 indicates a sequence error for a 
sequentially accessed indexed file. The ascending sequence 
requirements of successive record key values have been violated 
(refer to the WRITE statement), or the record key value has been 
changed by the COBOL program between the successful execution of 
a READ statement and the execution of the next REWRITE statement 
for that file. 

o A value of '2' in status key 2 indicates a duplicate key value. 
An attempt has been made to write or rewrite a record that 
creates a duplicate key in a relative or indexed file. 

o A value of '3' in status key 2 indicates that no record was 
found. An attempt has been made to access a record, identified 
by a key, and that record does not exist in the file. 
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STATUS KEY 3 

Status key 3 is a '4-digit numeric data item. Its value is moved to 
data-name-2 following the rules of the MOVE statement. Table 9-1 indicates the 
values of status key 3. 

Status key 3 has the format wxyz, where: 

wx describes the operation 

yz describes the cause of the error 



ACTIONS FOLLOWING INPUT/OUTPUT STATEMENT EXECUTION 

The following actions take place after any input/output statement is 
executed (successful or not successful). 

1. Appropriate values are set in status key 1, status key 2 and status 
key 3. (These all have zero values for a successful execution.) See 
Table 9-2 for the values. 

2. If status key 1 is zero, processing continues in line in the user's 
program. 
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Table 9-1. Values of Status Key 3 



w 


= COBOL I/C 


) verb in which the error occurred. 






1 


OPEN 






2 


CLOSE 






3 


READ 






4 


WRITE 






5 


REWRITE 






6 


START 






7 


DELETE 






8,9,0 


undefined 




X 


= Multies I/O system subroutine that discovered the error. 









none 






1 


iox_$find_iocb 






2 


iox_$attach or iox_$open 






3 


iox_$detach or iox_$close 






4 


iox_$read_record , iox_$write_record , 
iox_$rewrite_record, or iox_|deletfe_record 






5 


iox_|get_line, iox_$get_chars, or iox_$put_chars 






6 


iox_$seek_key_ or iox_$position 






7 


iox_$control or iox_$modes 






8 


iox_$read_key or iox_$read_length 






9 


undefined 




y 


= General 


category of the cause of the error. 









successful completion 






1 


at end of file 






2 


invalid key 






3 


permanent error 






9 


unable to make file available 




z 


= Specific 


cause of the error. This depends on the value of 


y. 




Possijble 


combinations of yz are: 






00 


no error 






01 


short record 






10 


at end of file 






21 


invalid key - sequence error 






22 


invalid key - duplicate 






23 


invalid key - record not found 






24 


invalid key - new key is not equal to the old key 






30 


unspecified error 






31 


file not open 






32 


invalid operation for current open mode 






33 


previous I/O operation was not READ 






3l» 


new record length Is not equal to the old record ler 


gth 




35 


long record 






36 


file already open or already closed 






90 


cannot make file available 






91 


file is busy 






92 


format error in file 






93 


cannot attach or detach the I/O switch 






9»» 


attach and open modes are incompatible 






95 


file does not exist 






97 


label error 
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T^ole 9-2. Possible Values of Status Keys 1, 2, and 3 Returned 

by Multlcs COBOL 



Status 
Status Keys 
Key 3 1 and 2 



Explanation 



6666 - 

1032 


— 517 

30 


1036 
1090 
1094 


30 
30 
30 


1193 


30 


1232 


30 


1290 
1291 
1292 


30 
30 
30 


1293 
129t 


30 
30 


1295 
1297 


30 
30 



1332 



2036 

2332 

2390 
2392 
2393 
3001 



30 



30 

30 

30 
30 
30 
00 



3031 


30 


3032 


30 


3M30 


30 


3110 


10 


3123 


23 


3M32 


30 


3135 


30 


3510 


10 


3530 


30 


3535 


30 


3621 


21 


3623 


23 


3630 


30 


3632 


30 


3810 


10 


3830 


30 


3832 


30 



No error - I/O operation successfully completed. 

Attempt to open external file already open in an 

inconsistent mode. 

Attempt to open internal file which is already open. 

Attempt to open a file closed with the LOCK option. 

Attempt to open "PREATTACHED" file which has not 

been previously attached. 

Unable to locate an existing lOCB or to create a new 

lOCB. 

OPEN is an invalid operation for the current 

attachment. 

Unable to open file (cause unspecified). 

File is busy (i.e., being used by another program). 

File contains format error or is of a different 

organization than specified. 

Unable to attach I/O switch. 

Attachment and attempted opening mode are 

incompatible. 

File does not exist. 

UNINITIALIZED VOLUME. DO YOU WANT TO INITIALIZE? (If 

the response is YES, the volume is initialized, and 

processing continues. If the response is NO, further 

processing cannot continue; the I/O switch is closed. 

Unable to close file to force specified attachment 

since CLOSE is an invalid operation for the current 

attachment. 

Attempt to close internal file which is not 

currently open. 

Close is an invalid operation for the current 

attachment. 

Unable to close file (cause unspecified). 

Unable to close file due to format error. 

Unable to detach lOCB after closing file. 

A record has been successfully read which is shorter 

than the specified Input area. 

Attempt to read an unopen file. 

Attempt to read a file opened In output mode. 

Unable to read record (cause unspecified). 

Unable to read record; at end of file. 

Unable to read record; record does not exist. 

READ is an invalid operation for current open mode. 

A record has been read which is longer than the 

specified input area. 

Attempt to read beyond the end of a stream file. 

Unable to read next line in a stream file. 

A record has been read in a stream file which is 

longer than the specified input area. 

Unable to seek key for input; key out of order. 

Unable to seek key for input; record not found. 

Unable to seek key for input (cause unspecified). 

Seek key la an invalid operation for current open mode. 

Unable to read next key; at end of file. 

Unable to read next key (cause unspecified). 

Read key Is an invalid operation for current open mode. 
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Table 9-2 (cont). Possible Values of Status Keys 1, 2, and 3 Returned 

by Hultics COBOL 



Status 
Status Keys 
Key 3 1 and 2 Kxplan.'^tion 



'^OY^ 30 Attempt to write an unopen file. 

'i032 30 Attempt to write a sequentially accessed filf opftip.l 

as I-O. 
't'*30 30 Unable to write record. 
'''*32 30 Write is an invalid operation for the current open 

mode. 
'*530 30 Unable to write stream record. 
^^3^ 30 Get_line is an invalid operation for the current open 

mode. 
"•^^I 21 Unable to seek key for output; attempt to write with 

an out-of-order key to an indexed sequential file. i 
''022 22 Unable to seek for output; duplicate key. 
J°30 30 Unable to seek key for output (cause unspecified). 
^°3f 30 Seek_key is an invalid operation for current open raoeje. 

5024 30 Invalid REWRITE attempted; new key is not identical to 

old key. 

5031 30 Attempt to rewrite an unopen file. 

5032 30 Invalid rewrite attempted'; attempt to rewrite a file 

not open as I-O. 

5033 30 Invalid rewrite attempted; the previous I/O operation 

to this sequential file was not READ. / 
503'< 30 Invalid rewrite attempted; new record length is not 

equal to old record length for this nonsequential 

file. 
5J'23 23 Unable to rewrite record; record not found. 
5^30 30 Unable to rewrite record (cause unspecified). 
5^32 30 Rewrite is an invalid operation for current open mode. 
5°2i 21 Unable to seek key for rewrite; sequence error. 

5o23 23 Unable to seek key for rewrite; record not found. 
5o30 30 Unable to seek key for rewrite (cause unspecified). 

503^ 30 Seek_key is an invalid operation for current c^en -node 

^031 30 Attempt to start an unopen file. ~~' * '' '""""• 

°032 30 Attempt to start an output file. 

llll 23 f!®°°r^ ^°^ ^°""d '^ith a key matching the specified key. 

9?^" ^" Unable to seek key which matches specified key. 

l^^i 30 Seek_key is an invalid operation for current open mode. 

°"^^ "^^ Record not found with key satisfying specified key 

relationship. 
ll\°^ 30 Unable to seek_head ( iox_$control operation). 

°'^^ ^" "he control operation "seek_head" is not allowed for 

the current open mode. 
lji\\ 30 Attempt to delete in an unopen file. 

Ijiii 30 Attempt to delete in a file opened in output mode. 

'^^ 30 Invalid delete attempted; the previous I/O operation 

on this sequential file was not READ. 

Unable to delete record; record not found. 

Unable to delete record (cause unspecified). 

Delete is an Invalid operation for current open mode. 

Unable to seek key for delete; sequence error. 

Unable to seek key for delete; record not found 

Unable to seek key for delete (cause unspecified). 

Seek_key is an invalid operation for current open .node 



7M23 


23 


7J430 


30 


7*J32 


30 


7621 


21 


7623 


23 


7630 


30 


7632 


30 
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Error Processing 

When an error occurs on an input/output operation, the user can exercise a 
degree of control through specification of USE procedures that can inspect the 
FILE STATUS item associated with the file. 

The following str-p." ire taken when an input/output error is encountered: 

1. A value is [ 1 1 ^d in the FILE STATUS item, if one is specified, to 
indicate th^ n''lure of the error. Refer to "Input/Output Status" 
earlier in this section for a description of the various error 
conditions and codes, 

2. If the error is an AT END or INVALID KEY condition: 

a. If an AT END or INVALID KEY phrase, respectively, is specified in 
the input/output statement, control is transferred to the AT 
END/INVALID KEY imperative statement and a USE statement, if 
specified, is not executed, 

b. If the AT END or INVALID KEY phrase is not specified in the 
input/output statement, and a USE procedure is specified for the 
file, the USE procedure is executed, 

c. If the AT END or INVALID KEY phrase is not specified in the 
input/output statement, and a USE procedure is not specified for 
the file, the action taken is the same as for a non-1/0 error. 
(Refer to "Non-Input/Output Errors" In Section VII.) 

3. If the error is not an AT END or INVALID KEY condition: 

a. If a USE procedure Is specified for the file, it is executed. 

b. If a USE procedure is not specified for the file, the action 
taken is the same as for a non-I/0 error, (Refer to 
"Non-Input/Output Errors" in Section VII,) 

J4. In certain special cases the programmer cannot gain control of the 
error by a USE procedure. These cases are identified by a value of 
zero in status key 1 in Table 9-2, These cases are generally not 
errors, but normal conditions. If the programmer wishes to check 
these conditions, a test of status key 3 should be included after the 
input/output statement. 



AT END Condition 

The AT END condition can occur as a result of the execution of a READ 
statement. For details of the causes of the condition, refer to "READ Statement" 
later in this section. 



LINAGE-COUNTER Register 



The reserved word LINAGE-COUNTER is a name for a special register generated 
by the presence of a LINAGE clause in a file description entry. The implicit 
description is that o'" an unsigned Integer whose size is equal to six digits. 
For rules governing the linage counter, refer to "LINAGE Clause" later in this 
section , 
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Label Processing for Tape Files 



which sSL^r^ ? K 1 * applied at appropriate times to magnetic tape files for 
and Jr^Jf^r i^K.! ^^'^ ^""^ specified. Files allocated to magnetic tape header 
^!!^^:^^J®^^^''«l! fr« separate blocks recorded before the firit Dhvslc^i rllT/ri 
o.. =«ch reel and loiiowing the last physical record, respectively". ' 

Header label creation takes place whenever a labeled file is ooened for 
output or a new volume of a multivolume sequential output file Is accessed A 
label record containing the FILE-ID and/o? RETENTION JerioS sjecmed !n"the 
source program is recorded on the file. =»Heci,iea in ine 



to 

a 



n mJnfJJr* • °'"?a^i°" ^^kes place whenever a labeled output file allocated 
o magnetic tape is closed or, for a multireel version of such a file whenever 
n end-of-tape condition is encountered or a CLOSE REEL statement is executed 



ino../®^J®r ^^^^^ checking takes place whenever a labeled file is opened for 
input, extension, or input-output, or when a new volume of a multivolume 
sequential input file is accessed. muii,ivoj.urae 

« ^^Jr^^^f ^a'^®!^ checking occurs whenever an end-of-volume or end-of-file 
condition is encountered on a labeled input file allocated to magnetic tape. 

Reel/Unit Swap Procedure 

A reel/unit swap occurs upon the execution of a CLOSE REEL/UNIT statement 
and whenever execution of an input-output operation on a multivolume sequential 
file results in an end-of-volume condition on the current volume. It causes the 
next volume in sequence to become the current volume. 
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■NVIRONMENT DIVISION FOR TNPUT/OUTPUT 



Inout-Output Section 



The Input-Output Section provides the information needed to control the 
transmission and handling of data between the Multics Input/Output (I/O) System 
and the object program. It is subdivided into the following two' paragraphs: 

o FILE-CONTROL paragraph, which names all files used in the program and 
associates them with I/O switch names. i^' ugram 

° .^;ohn?!!!f = S^^K^^''^''^- "^^"^ defines special input/output control 

techniques to be used m executing the object program. 

General Format: 

ENVIRONMENT DIVISION . 
I INPUT-OUTPUT SECTION . 

FILE-CONTROL. ^file-control-entry} ... 

r . ,. r -.1 

L '--^-'-^a'-nuL. j_input-output-control-entryj J 
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FILE-CONTROL 



FILE-CONTROL PARAGRAPH 



The FILE-CONTROL paragraph names each file and allows specification of 
other file-related information. 

The file control entry names a file and may specify other file-related 
information . 



Format 1 (Sequential Files) 

SELECT [optional] [eXTERNAl]] file-name-1 



ASSIGN TO internal-file-name-1 



-VIRTUAL 

-PRINTER 

-CARD-PUNCH 

-CARD-READfR 

-PREATTACHED 

-TAPE 



; RESERVE intege 



; ORGANIZATION IS 



.-, [""1 

UREASJ 




SEQUENTIAL 



[ ; ACCESS MODE IS SEQUENTIAL ] 

; FILE STATUS IS data-name-1 i , data-narae-2j j 

fliteral-l ") 1 

; CATALOG-NAME IS ^ M 

L data-name-3 J J 

; [with] ^ VLR f L 

L '^ -■ L SPANNED J J 
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Format 2 (Relative Files) : 
SELECT [external] file-name-1 

ASSIGN TO internal-file-name-1 



[ 



-VIRTUAL 
-PREATTACHED 



] 



rAREA 1 
VREAsJ 



; ACCESS MODE IS 



Tap 

; RESERVE integer-1 

; ORGANIZATION IS [mULTICs] RELATIVE 

SEQUENTIAL £, RELATIVE KEY IS data-name-s] 

• /randomI 

\ ( , RELATIVE KEY IS data-name-3 

L bYNAMid 

[_ ; FILE STATUS IS data-name-1 f, data-nane-2l J 

r f literal-1 1 ' 

L data-name-3 J - 



[^C"™]fe}]^ 
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Format 3 (Indexed Files) : 

SELECT [external] file-name-1 

[ -VIRTUAL n 

-preattached J 

[Tare A 1 1 
; reserve integer-1 

; ORGANIZATION IS [hULTICs] INDEXED 

fsEQUENTIAlTl 
J ; ACCESS MODE IS ^ RANDOM f 

L v JtYNAHIC ^ J 

; RECORD KEY IS data-name-4 

L ; ALTERNATE RECORD KEY IS data-name-5 [wiTH DUPLICATES^ J . . . 

; FILE STATUS IS data-name-1 f, data-name-s] I 

tf literal-1 "1 "I 
; CATALOG-NAME IS ^ M 

L data-name-3 J J 
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Format H (Stream Files) : 

SELECT [external] file-name- 



1 



[ -VIRTUAL 
-PREATTACHED 



-PRINTER 



[TareaI 
; RESERVE integer-1 
LareasJ J 

; ORGANIZATION IS [mULTICs] STREAM 
j[ ; ACCESS MODE IS SEQUENTIAL ] 

L ; FILE STATUS IS data-name-1 [, data-name-2] J 

[fliteral-1 "1 1 
; CATALOG-NAME IS < M . 

[data-name-2 J J 
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Syntax Rules: 



The SELECT clause must be specified first in the file control entry. 
The clauses which follow the SELECT clause can appear in any order. 

Each file described in the Data Division must be named only once as 
file-name-1 in the FILE-CONTROL paragraph. Each file specified in the 
file control entry must have a file description entry in the Data 
Division. 



5, 

6. 
7. 



Internal-file-name-1 can contain from one to 16 ASCII grapnic 
characters. The blank, minus (or hyphen), and leading or trailing 
period characters cannot be part of internal-file-name-1. 

In Format 1, when the ORGANIZATION IS SEQUENTIAL clause is not 
specified, the clause is implied. 

If the ACCESS MODE clause is not specified, the ACCESS MODE IS 
SEQUENTIAL clause is implied. 

Data-name-1, data-name-2, data-name-3, data-name-4 , and aata-name-5 
may be qualified. 

Data-name-1 must be defined in the Data Division as a two-character 
data item of the category alphanumeric and must not be defined in tne 
File Section, the Constant Section, or the Communication Section. The 
left character is known as status key 1 and the right character is 
status key 2. 



If a relative file is to be referenced by a START 
RELATIVE KEY phrase must be specified for that file. 



statement, the 



9. The data item referenced by data-name-3 should not be defined in a 
Record Description associated with the file-name. If data-name-3 
(RELATIVE KEY) is defined in a record aescription entry associated 
with the corresponding file-name, a warning diagnostic is issued. The 
data referenced by data-name-3 must be defined as an unsigned integer. 
Data-name-3 must not be defined in the CONSTANT Section. 

10. Data-name-i| and data-name-5 must not describe an item whose size is 
variable; each must define an item containing not less than one nor 
more than 255 alphanumeric characters. The data item referenced by 
data-name-4 (RECORD KEY) should be defined either as a data item of 
the category alphanumeric within a record description entry associated 
witn that file-name or be defined in the Working-Storage Section. k 
warning diagnostic is issued in the latter case. If data-name-5 
exists (ALTERNATE RECORD KEY), all keys must be within the record 
description entry associated with that file-name or a fatal diagnostic 
is issued. 

11. Data-name-5 cannot reference an item whose leftmost character position 
corresponds to the leftmost character position of an item referenced 
by data-narae-4, or by any other data-name-5 associated with the file. 

12. Internal-file-name-PREATTACHED can be specified in the ASSIGN clause 
only when EXTERNAL has been specified in tne associated SELECT clause. 
If EXTERNAL has not been specified, the -PREATTACHED pnrase is 
ignored, and a warning diagnostic is issued. 

13. When internal-file-name and tne logical medium (e.g., -VIRTUAL, 
-PRINTER) are specified, tney must be concatenated witnout. blanks. 
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FILE-CONTROL 



14. 
15. 

16. 



Data-„ame-2 specifies the variable Item Into which status key 3 is 
The OPTIONAL phrase may be specified onlv rn-r inn,,,- f<i 



a. 



'^' sS5?Jt?Iu" '' SEQUENTIAL is synonymous with ORGANIZATION IS MULTICS 

General Rules (all formats): 

1. The ASSIGN clause specifies tne association of the fUe referen-^ed bv 
^olTolf^l .ur.Tsls:''''"''' ''''' ''^ lnte.nal.file-;;L;^'rerv;I%S^ 

If the VALUE OF CATALOG-NAME clause is not specified (In the File 
Alt .Hi''V\ "'% i"ternal-file-name names the file T^e 

file-name is tne string "program-name. internal-file-name". 

b. The inhBrna1_Pi 1 a_»->-.» - ^i-_ - j_ .. . 

- . - ------ •----"=■"= iiamca tne i/u switcn. If the file is an 

external file the internal-file-name is the switch name if the 
int^rr,«i ?ii '" internal file the switch name is 
i str^n^'nr^:^'"^""^''"^-'*'^''^^^*'"^' "^^'•^ unique-characters is 
L IIJ» L° "'^'^.t'^J ^"^'^ ^'** "^"i^"^* ''ithin the process. Refer 
t^ thejultics COBOL Users' Guide, Order No. AS43 or the MPM 
Reference Guioe, Oraer Mo. AG91 for details about I/O switch. ^^ 

c. The Internal-file-name is used with COBOL-related Multics 

llTerl'le rJf'l'Jj^'..'-^^^ Uaeri: Guide or thi mPM 
nei erence L-uiae for aetails. 

2. The RESERVE clause is for documentation only. 

^' ?h! ORGANIZATION clause specifies the logical structure of a file 
The file organization is established at the time a file is created and 
cannot subsequently be ohangea by the program. created ana 

4. When ACCESS MODE IS SEQli'^MTTaT -,• = ,.,e„j^.-„^ —mrn' ■■ r. ^ 

accessed in the seque„ce-dictated"by-''thr f Ue ^rlanizatiSn?"' '''' ''"^ 

a. For sequential and stream files, this sequence is determined bv 
extended!'" ^""^ """^ statements when \he file is created or 

^' llL/ili^l^"^ "^^"^ ^"^^ sequence is tne order of ascenaing 
relative recora numbers of existing records in the file. 

°' 1% ^Itl^'lt "^^' ^"'' sequence is the order of ascending record 

sljuence'is ^sSo" ' ''''" ''' °' ^f— ■ ASCII collating I 
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5. When the FILE STATUS clause is specified, a value is moved into the 
data item specified by data-narae-1 (and data-narae-2) after the 
execution of every statement that references that file, either 
explicitly or implicitly. This value indicates the status of the 
execution of the statement. Data-name-2, if specified, is set to a 
number associated with a corresponding error message. 

6. The key word EXTERNAL specifies that the file can be used by more than 
one program in the run-unit. If EXTERNAL is not specified, the file 
is unique to this program. 

7. If -VIRTUAL, -TAPE, -PRINTER, -CARD-PUNCH, -CARD-READER, or 
PREATTACHED are not specified, -VIRTUAL is assumed. 

8. If -PRINTER is specified, the final destination of the output file is 
assumed to be a physical printer. If -CARD-PUNCH is specified, the 
final destination of the output file is assumed to be a physical card 
punch. In this case, the file is created in the Multics virtual 
storage system. (the user should use the Multics commands to queue 
these files for printing or punching.) At program execution time, the 
file is a Multics segment. If -CARD-READER is specified, it may be 
used only for input files, in the Multics virtual storage system. 
These files may be created by Multics utility programs that read 
punched cards and write them into the storage system; or may be copies 
of such files. 

9. If -TAPE is specified, the file is assumed to be on tape. For tape 
files, the CATALOG-NAME clause identifies the volume identification of 
the tape file. 

The CATALOG-NAME must be present for all tape files. For ANSI and IBM 
tape, the following holds: 

The volume identification specified as the value of literal-1 or the 
data item referenced by data-name-3 must be six characters or less in 
length. If the CATALOG-NAME is less than six characters and entirely 
numeric, it is padded on the left with zeros by the I/O module. If 
the CATALOG-NAME is less than six characters and not entirely numeric, 
it is padded on the right with blanks. 

For nonstandard tape, the following holds: 

The CATALOG-NAME is the tape reel number. If the tape is 7-track, 
CATALOG-NAME must contain ", 7-track". If the tape is 9-track, 
CATALOG-NAME may contain ", 9-track". If it contains neither, 9-track 
is assumed. 

10. The CATALOG-NAME clause identifies the segment for virtual files. 
Literal-! or the contents of data-name-3 is the path name (full or 
relative) of the corresponding segment or raultisegment file. If it is 
not specified, the character-string "program-name .internal-file-name" 
is assumed as the default. 
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11. If EXTERNAL is not specified, the I/O switch associated with file-name 
13 attached when the file referenced by file-name is opened, and 
detacned when the file is closed. If the EXTERNAL phrase is 
specified, the following rules apply: 

a. If, when the file referenced by file-name is opened, storage is 
already allocated, no alteration of allocation takes place. 

b. When file-name is closed, the file is not released; instead, the 
file is released when the run-unit is terminated. 

G. The APPLY clause in the I-0-CONTROL paragraph can be used to 
override these rules, giving the user complete control of the 
attach/detach functions. 

12. If -PREATTACHED is specified, the file must have been made available 
by a previously executed program or command. 

13. Virtual files are files in the Multics virtual memory storage system. 

14. Virtual files are the normal Multics files; that is, they do not hav 
a special purpose such as printing or punching. 

15. For ANSI or IBM tape files, VLR indicates that the internal structure 
of the file is in variable-length record format. Records in this case 
must not exceed 8188 characters in length. For other files, VLR 
indicates the file, when written, is to be handled as though it had 
variaoie-length records and thus this specification is of interest 
only in special cases, when special formatting of the file is desired. 

16. For ANSI or IBM tape files, FLR indicates that the internal structure 
of the file is in fixed-length record format. Records in this case 
must not exceed 8192 characters in length. For other files, FLR 
indicates the file, when written, is to be handled as though it had 
fixed-length records and thus this specification is of interest only 
m special cases, when special formatting of the file is desired. If 
the records are described as having different sizes or are variable in 
length, the maximum size is always written. Records smaller than the 
maximum size are not padded. The extraneous characters are those from 
the previous contents of the record area. 

17. For ANSI or IBM tape files, SPANNED indicates the internal structure 
of the file is spanned record format. Records in this case must not 
exceed 1,044,1480 characters in length. 

18. For additional information concerning COBOL object time input/output 
refer to the Multics COBOL Users' Guide. 
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General Rules (Format 1): 

1. ORGANIZATION IS ANSI SEQUENTIAL Implies a standard ANSI tape file. 
Attachment is made to the tape_an3i_ I/O module. 

I. ORGANIZATION IS SEQUENTIAL implies a Multios sequential file to be 
accessed on the device specified or implied by the internal-file-name 
phrase. 

3. ORGANIZATION IS IBM-DOS SEQUENTIAL implies IBM DOS tape file. 
Attachment is made to the tape_ibm_ I/O module -DOS control argument. 

4. ORGANIZATION IS IBM-OS SEQUENTIAL implies an IBM tape file. Attachment 
is made to the tape_ibm_ I/O module. 

General Rules (Format 2) : 

1. In a relative file, each record is identified by its logical ordinal 
position within the file. 

2. Format 2 must be specified for relative files. 

3. ORGANIZATION IS RELATIVE implies a Multics relative file. With this 
organization, the RELATIVE KEY specified (data-name-3) , represents the 
record's logical ordinal position in the file.. 

General Rules (Formats 2 and 3) : 

1. If ACCESS MODE IS RANDOM is specified, the value of the relative key 
data item for relative files or tne value of a record key data item 
for indexed files indicates the record to be accessed. 

2. When ACCESS MODE IS DYNAMIC is specified, records in the file can be 
accessed either sequentially or randomly. 

General Rules (Format 3): 

1 . In an indexed file each record is identified by the value of a key 
(data-name-4) . 

2. The RECORD KEY clause specifies the record key that is the prime 
record key for the file. The values of tne prime record key must be 
unique among records of the file. This prime record key provides an 
access patn to records in an indexed file. 

3. An ALTERNATE RECORD KEY clause specifies a record key that is an 
alternate record key for the file. The alternate record key provides 
an alternate access path to records in an indexed file. 

4. The data descriptions of data-name-4 and data-name-5 as well as their 
relative positions within a record must be the same as that used wnen 
the file was created. The number of alternate keys for the file must 
be tne same as that usee wnen the file was created. 
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I-0-CONTROL PARAGRAPH 

The I-0-CONTROL paragraph specifies the memory area that is to be shared by the 
different files, the location of the files on a multiple file reel, and input/output 
techniques to be applied to the files. 

General Format: 

I-0-CONTROL . 



L ; APPLY input-output-technique ON file-name-1 , ff ile-name-2j . 

[r f ile-name-3 "1 "J 

\. CHECKPOINT-FILE J J 



..] 



; RERUN 



EVERY 



END OF J \UNITJ 1 OF f ile-n 



{[ END OF ^ luNITj I 
integer-1 RECORDS J 



integer-2 CLOCK-UNITS 
condition-name 



ame-1 



{ RECORD 1 
SORT } 
SORT-MERGE J 



; SAME ^ SORT } AREA FOR file-name. 
SORT-MERGE 



-5 s, f ile-name-6/ I 

; MULTIPLE FILE TAPE CONTAINS file-name-7 [_ POSITION IS integer-3 ] 
L , file-name-8 [ POSITION IS integer-'l ^ J ... ... . 



Syntax Rules: 



1. The I-0-CONTROL paragraph is optional. 

2. The RERUN clause is for documentation purposes only. 

3. The two forms of the SAME clause (SAME AREA, SAME RECORD AREA) are 
considered separately in the following: 

More than one SAME clause can be included in a program. However: 

a. A file-name must not appear in more than one SAME AREA clause. 

b. A file-name must not appear in more than one SAME RECORD AREA 
clause. 
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c. A file-name that represents a sort or merge file must not appear 
in more than one SAME SORT AREA or SAME SORT-MERGE AREA clause. 

d. If one or more file-names of a SAME AREA clause appear in a SAME 
RECORD AREA clause, all file-names in that SAME AREA clause must 
appear in the SAME RECORD AREA clause. However, additional 
file-names not appearing in that SAME AREA clause can also appear 
in that SAME RECORD AREA clause. The rule that only one of the 
files mentioned in a SAME AREA clause can be open at any given 
time takes precedence over the rule that all files mentioned in a 
SAME RECORD AREA clause can be open at any given time. 

e. If a file-name that does not represent a sort file appears in a 
SAME AREA clause and in one or more SAME SORT AREA or SAME 
SORT-MERGE AREA clauses, all files named in that SAME AREA clause 
must be named in the SAME SORT AREA or SAME SORT-MERGE AREA 
clause (s) . 

4. The files referenced in the SAME AREA or SAME RECORD AREA clause are 
not required to have the same organization or access. 

associated ASSIGN clause. If file-name-7 or file-name-8 is specified 
with -PREATTACHED, the associated device must be a tape device. 

6. Each file-name specified in a MULTIPLE FILE TAPE clause must have an 
associated file description entry. 

7. The same file-name must not be specified more than once in a MULTIPLE 
FILE TAPE clause. 



General Rules: 



1. Since more than one input/output technique is available, the APPLY 
clause permits the user to select the appropriate technique for the 
object program. Specific names to designate the individual 
input/output techniques are specified under "Input/Output Techniques." 

2. The SAME AREA clause specifies that it is invalid to have more than 
one file open at the same time. (Refer to Syntax Rule 3d above.) 

3. The SAME RECORD AREA clause specifies that two or more files are to 
use the same memory area for processing the current logical record. 
All files may be open at the same time. A logical record in the SAME 
RECORD AREA is considered as a logical record of each opened output 
file whose file-name appears in this SAME RECORD AREA clause and of 
the most recently read input file whose file-name appears in this SAME 
RECORD AREA' clause. This is equivalent to an implicit redefinition of 
the area; i.e., records are aligned on the leftmost character 
position. 
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The MULTIPLE FILE clause is required when more than one file shares 
tne same physical reel of tape. Regardless of the number of files on a 
single reel, only those files that are used in the object program need 
be specified. If all file-names have been listed in consecutive order, 
the POSITION clause need not be given. If any file in the sequence is 
not listed, the position relative to the beginning of the tape must be 
given. Not more than one file of the same tape reel may be open at 
one time. 



Input/Output Techniques 

The input-output-technique variable specified in the APPLY clause of the 
I-O-CONTROL paragraph can consist of the following options. 



FILE IS 



f TEMPORARY 1 " 
L PERMANENT J . 

j_ NO DETACH AT CLOSE J 



I ATTACH-OPTIONS ARE 



r literal-1 "^ T 
S data-nanie-1 f f 



TAPE-OPTIONS ARE * 



GENERATION 



OUTPUT-MODE IS I MODIFICATION 

) f literal-2 ^ 

j_ REPLACEMENT \_ data-narae-2 J 

{integer-1 "\ 
data-name-3 J 

f 800 ^ 

DENSITY IS ^jTOO J 

RETAIN 

FORCE 

PROTECT 

f CATALOG-NAME IS ■\ f literal-3 1 
ADDITIONAL \^ CATALOG-NAMES ARE J ^ data-name-4 J. . _ 
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Syntax Rules: 



Contradictory input/output techniques must not be 
same file. 



specified for the 



3. 



5. 

6. 



If -PREATTACHED is specified in the ASSIGN clause of the FILE-CONTROL 
entry, the ATTACH-OPTIONS and TAPE-OPTIONS clauses cannot be 
specified . 

If the ATTACH-OPTIONS clause is specified, the TAPE-OPTIONS clause 
must be omitted. If the TAPE-OPTIONS clause is specified, the 
ATTACH-OPTIONS clause must be omitted. Each option within the 
TAPE-OPTIONS clause may be specified, but only once. 

The value of literal-2 or the data item referenced by data-name-2 can 
contain from one to 16 ASCII graphic characters, excluding the blank, 
minus (or hyphen), and leading and trailing period characters. 



The value of the data 
integer. 



item referenced by data-narae-3 must be 



an 



The ADDITIONAL CATALOG-NAME specified as the value of literal-3 or the 
data item referenced by data-name-4 must be six or less characters in 
length and must be nonnumerio. Data-narae-4 must be a data description 
entry in the Working-Storage section. 
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General Rules: 



1. The FILE IS TEMPORARY clause specifies that the associated file is to 
be released (or deleted) when the run-unit is terminated. The FILE IS 
PERMANENT clause indicates that the file is not to be deleted. If the 
FILE clause is not specified, PERMANENT is assumed. 

2. The NO DETACH AT CLOSE clause indicates that the file is not to be 
detached from the associated device when the file is closed. If this 
clause is omitted then the file is detached (by a CLOSE statement) if 
it was attached (by the OPEN statement). 

3. The file in the ATTACH-OPTIONS clause is EXTERNAL. The value of 
literal-1 or the data item referenced by data-nane-1 is in the format: 

"io-module-name option-1 . . .option-n" 

where the options depend upon the particular I/O module specified by 
io-module-name. This specification overrides any attachment implied 
by the internal-file-name phrase and CATALOG-NAME claus.e. (Refer to 
Multics Programmers' Manual, Subroutines for descriptions of available 
I/O modules. ) 

4. The TAPE-OPTIONS phrase within the APPLY clause must be specified 
whenever the user wishes to use options other than defaults. 

5. The OUTPUT-MODE clause allows one of three output operations to be 
performed on an existing file. Though each operation' functions in a 
significantly different manner, they all share a common 
characteristic: when an output operation is specified on an existing 
file, that file is logically truncated at the point of operation, 
thereby destroying all files (if any) that follow consecutively from 
that point. 

a. If GENERATION is specified, the generation number recorded in the 
labels that bracket every file are incremented by one. Initially 
set to zero when the file was created, this number is increased 
by one for each successive generation of the file. When the 
number reaches 9999, the next increment resets it to zero. 

b. If MODIFICATION is specified, the entire contents of a file are 
replaced, but the structure of the file itself (as recorded in 
the labels) is retained. Every time a file is modified, the 
version number in its trailer labels is incremented by one. When 
the number reaches 99, the next increment resets it to zero. 

c. If REPLACEMENT is specified, a new file is added by replacing 
(overwriting) an existing file specified by the value of 
literal-2 or the data item referenced by data-name-2. If no file 
having a value of literal-2 or the data item referenced by 
data-name-2 exists, a new file is appended to the tape. 



09/79 9-23 AS44D 



I-0-CONTROL I-0-CONTROL 



d. If the file to be generated or modified does not exist, an error 
la indicated and control returns to Multlcs command level. If any 
or all TAPE-OPTIONS are apeoified, they must correspond to those 
recorded in the labels of previous GENERATION or MODIFICATION 
phrases. 

e. If OUTPUT-MODE is not specified for a file opened in OUTPUT mode, 
a new file is created; an entirely new entity is added to the 
tape. This new file is appended immediately after the last (or 
only) file on the tape. The process of appending does not alter 
the previous contents of other files on the tape. 

6. The DEVICE option specifies the maximum number of tape drives that can 
be used by a given file during an attachment. The value of integer-1 
or the data item referenced by data-name-3 must range from 1 to n, 
where n equals the maximum number of drives on the system, but not 
greater than 63. When the DEVICE option ia not specified, the default 
for an initial attachnent to a file is one tape drive. 

7. The DENSITY option specifies the density at which the file is 
recorded. Every file on a multiple file tape must be recorded at the 
same density. In the absence of the DENSITY option, density is 
determined as follows: 

open for input: DENSITY = density of the volume label 

open for output: (creating a new reel) DENSITY = 800 bpi 

open for output: (for existing reel) DENSITY = density of the 
volume label 

8. The RETAIN option specifies the retention of resources across 

attachments, where resources equal devices (tape drives) and files 
(single-reel or multiple-file tapes. When RETAIN is specified, all 
devices and files remain assigned to the process. Otherwise, all 
devices and files are unassigned. 

9. The FORCE option specifies that the expiration date of the file being 
overwritten is to be ignored. EXTEND, MODIFICATION, GENERATION, and 
REPLACEMENT are overwrite operations. The expiration date is recorded 
in Julian form, and ia set only when a file is created or generated. 

10. The PROTECT option specifies that a file set will be mounted without a 
write ring. Whenever a file set is needed, the I/O module message that 
specifies the tape to be mounted without a ring. "If PROTECT is not 
specified, the tape will be mounted with a write ring. If a tape is 
mounted with a write ring and the I/O switch is opened for sequential 
input, the hardware file-protect feature is used to safeguard the 
tape . 

11. The ADDITIONAL option specifies a list of volume identifiers that will 
be required within the process. If ADDITIONAL is not specified, no 
additional CATALOG-NAME(S) is needed, since either the file is 
contained on one reel or the user wishes to be interrogated when reel 
changes take place. 

12. Refer to the Multics C030L Users' Guide and the Multics Programmers' 
Manual. Reference Guide for additional information on object time I-O. 
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File SgCVtQO 

In a COBOL program, the file description (FD) entry represents the highest 
level of organization in the File Section. The File Section header is followed 
by a file description entry consisting of a level indicator (FD), a file-name, 
and a series of independent clauses. The FD clauses specify the size of the 
logical and physical records, the presence or absence of label records, the 
value of label items, and the names of the data records of which the file is 
composed. The entry itself is terminated by a period. 



Record Description Structure 

A record description consists of a set of data description entries which 
describe the characteristics of a particular record. Each data description 
entry consists of a level-number followed by a data-name (if required), followed 
by a series of independent clauses as required. A record description has a 
hierarchical structure; therefore, the clauses used with an entry can vary 
considerably, depending upon whether or not the entry is followed by subordinate 
entries. The structure of a record description is further defined in the 
Concept of Levels paragraph in Section II, while the elements allowed in a 
record description are shown in the data descrlpti6n Skeleton paragraph in 
Section VI. 
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File Description - Complete Entry Skeleton 

The file description furnishes information concerning the physical 
structure, identification, and record-names pertaining to a given file. 

General Format: 



FD file>name 



[ 



[- Records T I 

integer-1 ToJ lnteger-2 < > 

■"^ ^CHARACTERSJ J 



L ; RECORD CORTAIMS [lnteger-3 ToJ integer-4 CHARACTERS 

[depending oh data-name- 1 ] J 

{ RECORD IS "1 rSTANDARD*^ 
RECORDS AREJ LOMITTED J 



; LABEL 



VALUE OF - 



FILE-ID IS 



RETENTION IS 



CATALOG-NAHE IS 



{data-name-2 T 
llteral-1 J 
{data-name-3 ^ 
llteral-2 J 
{data-name-4 '\ 
literal-3 J 



[ fRECORD IS 1 - - I 

; DATA i y \ data-name-5 / . . . I 

Irecords areJ ^ 'J 

[ 



; LINAGE IS 



{data-name-^ F 
\ LINES I , 
integer-5 J L 



LINES I , WITH FOOTING AT 



[• 



LINES AT TOP 



Tdata-name-S* 



n][- 



y.nteger 
r ; CODE-SET IS alphabet-name J 



LINES AT BOTTOM 



{data-name-7^ T 
lnteger-6 J J 

{data-Tiame-91 T I 
integer-8 J J J 
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Syntax Rules; 



1. The level indicator FD identifies the beginning of a file description 
and must precede the file-name. 

2. The clauses that follow the name of the file are optional in most 
cases and their order of entry is not significant. 

3. One or more record description entries must follow the file 
description entry. 
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BLOCK CONTAINS CLAUSE 

The BLOCK CONTAINS clause specifies the size of a physical record. 



General Format; 



Bt^OCK CONTA 



General Rules; 



INS r integer-1 1^1 integer-2 1 f 

L •* **J L CHARACTERS J 



1. The BLOCK CONTAINS clause is meaningful only for ANSI or IBM tape 
files. Otherwise, it serves only as documentation. 

2. If this clause is not specified, it is assumed that a physical record 
contains only one complete logical record. 

1 When the word CHARACTERS is specified, the physical record size is 
specified in terms of the number of character positions required to 
lEore the physical record, regardless of the types of characters used 
to represent the items within the physical record. 

n If only integer-2 is shown, it represents the exact size of the 

physical record. If integer-1 and integer-2 are both shown, they 
?eflr to the minimum and maximum sizes of the physical record, 
respectively. 

5. Specification of integer-1 is not meaningful but is accepted for 
documentation only. 

6 If the file is fixed-length record format, block size must be greater 

than or equal to record size. If block size is not an exact multiple 

of record size, the actual block size used is integer-2 rounded 

downward to an exact multiple, and an observation is issued. 

7. If the file is variable-length record format, block size must be 
greater than or equal to record size. 

8. If the file is spanned record format, block size may be less than, 
equal to, or greater than record length. 

9. In all cases, block size must be in the range: 

18 < block size < 8192 
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Notes: 



'' feature^ ^^°°^ *^" greater than 20ll8 is a nonstandard Multics 

^' J5^«J!''° "record size" refers,to the actual or maximum nu .ber 
or cnaracters in the record as specified in the RE^-^JW COuTAINS 
pnf^v? «k'i««^'' implied by the record description(s) in the FD 
entry, Diock size" refers to the number of characters in a 
size 1« JL„m! ,^^°^'^ CONTAINS clause is not specified, block 
;f"„" ^°f""cal to record size, and records are unblocked. If 
BLOCK CONTAINS ... RECORDS is specified, block size is equal to 

CWRfr?R?<!"!fi i^^^fl^^ ''*<'°''** *^^*- ^^ ^l-OCK CONTAINS ... 
CHARACTERS is Specified or implied, block size is integer-2. 
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CODE-SET CLAUSE 

The CODE-SET clause of the FD entry specifies the character code set used 
to represent data on the external media. 



General Format: 



CODE-SET IS 



alphabet-name 



Syntax Rules: 



When the CODE-SET clause is specified for a file, all data in that 
file must be described with usage DISPLAY and any signed numeric data 
must be described with the SIGN IS SEPARATE clause. 

The alphabet-name clause referenced by the CODE-SET clause must not 
specify the literal phrase. 



General Rules: 



If the CODE-SET clause is specified, alphabet-name specifies the 
character code convention used to represent data on external media. It 
also specifies the algorithm for converting character codes on 
external media from/to native character codes. This code conversion 
occurs during execution of an input or output operation. (Refer to 
"SPECIAL-NAMES Paragraph" in Section VI.) 

If the CODE-SET clause is not specified, the ASCII character set is 
assumed for data on the external media, and no code conversion takes 
place. 
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DATA RECORDS CLAUSE 

The DATA RECORDS clause serves only as documentation for the names of data 
records with their associated files. 



General Format: 

{££fififiC IS 1 . . 

f data-name- 1 I , data-name-2 1 ... 
BfiCQflfifi ARE J •■ J 

Syntax Rules: 

1. Data-nane-1, data-name-2,..., are the names of data records and must 
have level-number 01 record descriptions, with the same names, 
associated with them. 



General Rules: 

1. The presence of more than one data-name inditfates that the file 
contains more than one type of data record. These records can be of 
differing sizes, different formats, etc. The order in which they are 
listed is not significant. 

2. Conceptually, all data records within a file share the same area. 
This is in no way altered by the presence of more than one type of 
data record within the file. 
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LABEL RECORDS CLAUSE 

The LABEL RECORDS clause specifies whether labels are present. 

General Format: 



LABEL 



{ RECORD IS "1 f STAHDARD "1 
RECORDS ARE | \ OMITTED J 



Syntax Rules: 

1. The LABEL RECORDS clause is required in every file description entry. 

General Rules: 

1. For files in which -TAPE has been specified in the SELECT clause: 

• OMITTED ihdicates attachtaent to the ta|>e_lbm_ I/O module. 

• STANDARD indicates attachment to the tape_ansl_ or tape_ibm I/O 
module, depending on other information given in the SELECT 
clause. 

2. For all other files, this clause serves as dbcumentation only. 
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LINAGE CLAUSE 

The LINAGE clause provides a means for specifying the size of a logical 

page in terras of number of lines. It also provides for specifying the top and 

bottom margins on a page, and the line number with a page body, at which the 
footing area begins. 



General Format: 

[Jdata-name-ll [" fdata-name-al 1 

; IIMQE. IS S f LINES , WITH FOOTING AT 1 H 

Unteger-1 J L L.nteger-2 J J 

[Jdata-name-al | \ fdata-narae-in T 

, LINES AT TfiE 1 M ' ^I'^ES AT BOTTOM \ > 

Unteger-3 J J L Unteger-1 J J 



Syntax Rules: 

1. Data-name-1, data-name-2, data-name-3, and data-name-1 must reference 
elementary unsigned numeric Integer data items. 

2. The value of integer-1 must be greater than zero. 

3. The value of integer-2 must not be greater than integer-1. 
^. The value of integer-3 and integer-*! may be zero. 
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G,eneral Rules: 

1. The LINAGE clause provides a means for specifying the size of a 
logical page in terras of number of lines. The logical page size is 
the sum of the values referenced by each phrase except the footing 
phrase. If the LINES AT TOP or LINES AT BOTTOM phrases are not 
specified, the values of these functions are zero. If the FOOTING 
phrase is not specified, the assumed value is equal to integer-1 or 
the contents of the data item referenced by data-name-1, whichever is 
specified. 

2. The value of integer-1 or the data item referenced by data-name-1 
specifies the number of lines that can be written and/or spaced on a 
logical page. The value must be greater than zero. That portion of a 
logical page in which lines can be written is called the page body. 

3. The value of integer-3 or the data item referenced by dat .- name-3 
specifies the number of lines that comprise the top ma gin of a 
logical page. The value may be zero. 

ij. The value of integer-1 or the data item referenced by data-name-4 
specifies the number of lines that comprise the bottom margin of the 
logical page^ The value may be zero. 

5. The value of integer-2 or the data item referenced by data-name-2 
specifies the line number within the page body at which the footing 
area begins. This value must be greater than zero and not greater than 
the value of lnteger-1 or of the data item referenced by data-name-1. 

The footing area comprises the area of the logical page between the 
line represented by the value of integer-2 or the data item referenced 
by data-name-2 and the line represented by the value of integer-1 or 
the data item referenced by data-name-1, inclusive. 

6. The values of integer-1, integer-3, and integer-4, if specified, will 
be used when the file is opened by the execution of an OPEN statement 
with the OUTPUT phrase to specify the number of lines that comprise 
each of the indicated sections of a logical page. The value of 
integer-2 or the data item referenced by data-name-2, if specified, is 
used at that time to define the footing area. These values are used 
for all logical pages written for the file during a given execution of 
the program. 

7. The values of data items referenced by data-name-1, data-name-3, and 
data-narae-i>, if specified, will be used as follows: 

a. The values of the data items, at the time an OPEN statement with 
the OUTPUT phrase is executed for the file, will be used to 
specify the number of lines that are to comprise each of the 
indicatied sections for the first logical page. 

b. The values of the data items, at the time a WRITE statement with 
the ADVANCING PAGE phrase is executed or page overflow condition 
occurs, will be used to specify the number of lines that are to 
comprise each of the indicated sections for the next logical 
page. 
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B. The value of the data item referenced by data-name-2, if specifipd, at 
the time an OPEN statement with the OUTPUT phrase is executed for the 
fiie, will be used to define the footing area for the first locivial 
page. At the time a WRITE statement with the ADVANCING PAGE phrase 13 
executed or a page overflow condition occurs, it will be used to 
define the footing area for the next logical page. 

9. A LINAGE-COUNTER is generated by the presence of a LINAGE clause. The 
value in the LINAGE-COUNTER at any given time represents the line 
number at which the device is positioned within the current pape body. 
Rules governing the LINAGE-COUNTER are as follows: 



A separate LINAGE-COUNTER is provided for each file described 
the File Section whose FD entry contains a LINAGE clause. 



m 



b. The LINAGE-COUNTER may be referenced, but not modified, by 
statements in the Procedure Division. Since more than one 
LINAGE-COUNTER may exist in a program, the user must qualify the 
LINAGE-COUNTER by the file-name when necessary. 

c. The LINAGE-COUNTER is automatically modified, according to the 
following rules, during execution of a WRITE statement to aii 
associated file: 

1) When the ADVANCING PAGE phrase of the WRITE statement is 
specified, the LINAGE-COUNTER is automatically reset to one. 

2) When the ADVANCING identifier-2 or integer phrase of the 
WRITE statement is , specified, the LINAGE-COUNTER is 
incremented by integer or the value of the data item 
referenced by identifier-2. 

3) When the ADVANCING phrase of the WRITE statement is not 
specified, the LINAGE-COUNTER is incremented by the value of 
one. 

1) The value of LINAGE-COUNTER is automatically reset to one 
whenever the device is repositioned to the first line that 
can be written for each of the succeeding logical pages. 

d. The value of LINAGE-COUNTER is automatically set to one when an 
OPEN statement is executed for the associated file. 

10. Each logical page is contiguous to the next with no additional spacins 
provided. * 
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RECORD CONTAINS CLAUSE 

The RECORD CONTAINS clause specifies the size of data records. 

General Format: 

RE£Ofi£ CONTAINS £integer-1 10 ] integer-2 CHARACTERS 
[ depending QH data-narae-1 ] 

Syntax Rules: 

1. Data-name- 1 may be qualified. 

General Rules: 

1. The size of each data record is completely defined within the record 
description entry; therefore, this clause is never required. When it 
is present, however, the following rules apply: 

a. Integer-2 cannot be used by itself unless all of the data records 
in the file have the same size. In this case, integer-2 
represents the exact number of characters in the data record. If 
integer-1 and integer-2 are both shown, they refer to the minimum 
number of characters in the smallest size data record and the 
maximum number of characters in the largest size data record, 
respectively. Integer-1 can be zero. 

b. The size is specified in terms of the number of character 
positions required to store the logical record, regardless of the 
types of characters used to represent the Items within the 
logical record. The size of a record is determined by the sum of 
the number of characters in all fixed-length elementary items 
plus the sum of the maximum number of characters in any 
variable-length table item subordinate to the record. This sura 
can be different from the actual size of the record. (Refer to 
"USAGE Clause" in Section VI.) 

2. The DEPENDING ON clause cannot be specified when FLR has been 
specified. 

3. Data-name-1 must be a numeric integer data item. 

t. The WRITE statement uses the contents of data-name-1 to determine the 
size of the record. The READ statement causes the contents of 
data-name-1 to contain the size of the record read. Note that any 
excess characters in the current record area are not altered. 
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obseJJfd-*"** ^^" **"* '^^^®''' *^® following restrictions must be 

^* p?L"w®*'"^?"***' record format files, record size must not exceed 
8192 characters. 

b. For variable-length record format files, record size must not 
exceed 8188 characters. 

°* ^°ni.S'*!12S*'*.'^**'°'**' format files, record size must not exceed 
1,04i|,i|80 otiaraotera. 

d. For unblocked files of all formats, the minimum allowable record 
size is 18 characters. 
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VALUE OF CLAUSE 

The VALUE OF clause In the FD entry specifies the expected or desired 
contents of the file identification and/or retention fields of the file labels. 



General Format: 



VALUE OF - 



FILE-ID IS 



RETENTION IS 



CATALOG-NAME IS 



{data-name-1 "^ 
llteral-1 J 
(data-name-2 1 
llteral-2 J 
{data-name-3 "1 
llteral-3 J 



Syntax Rules; 



1. Data-name-1, data-name-2, and data-name-3 should be qualified when 
necessary, but cannot be subscripted or Indexed, nor can they be items 
described with the USAGE IS INDEX clause. 

2. Data-name-1 and data-name-2 must be in the Working-Storage Section. 

3. FILE-ID and RETENTION reference data items within the appropriate 
label. 

«». Literal-3 or the contents of the data item referenced by data-name-3 
must be nonnumeric. Data-name-3 must be a data description entry in 
the Working-Storage Section. 



General Rules: 



1. 



2. 



3. 



The VALUE OF FILE-ID find the VALUE OF RETENTION clause Is meaningful 
only for tape files and otherwise serves only for documentation. 

FILE-ID specifies the name to be used in labels and is meaningful only 
with ORGANIZATION IS ANSI, IBM-OS, and IBM-DOS SEQUENTIAL files. 
(Refer to the SELECT clause.) 

RETENTION specifies the expiration date of a tape file being created. 
The value specified by literal-2 or the data item referenced by 
data-name-2 indicates the minimum number of days the file is to be 
retained after its creation date. This value must be an unsigned 
numeric data item of no more than three digits. 
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VALUE OF 



t. For an input file, the appropriate label routine checks to see if the 

value of FILE-ID or RETENTION is equal to the value of either 

iiterai-T or tne data item referenced by data-name-2- whiehever ha<» 
been specified. 

B?TP^T^^?^*' ^"®' ** *'*** appropriate tine the value of FILE-ID or 
RETENTION is made equal to the value of either llteral-1 or the data 
item referenced by data-name-2, whichever has been specified. 

J' If -TAPE is specified in the SELECT clause, the file is assumed to be 
on tape. For tape files, the VALUE OF CATALOG-NAME clause Identifies 
the volume identification of the tape, file. 

The VALUE OF CATALOG-NAME clause must be present for all tape files. 
For ANSI, IBM, and nonstandard tape, the following holds: 

The volume identification specified as the value of literal-1 or the 
data item referenced by data-name-3 must be six characters or less in 
length. If the VALUE OF CATALOG-NAME is less than six characters and 
entirely numeric, It Is padded on the left with zeros by the I/O 
module. If the VALUE OF CATALOG-NAME Is less than six characters and 
not entirely numeric, it Is padded on the right with blanks. 

6. The VALUE OF CATALOG-NAME clause Identifies the segment for virtual 
files. Llteral-1 or the contents of data-name-3 Is the pathname (full 
or relative) of the corresponding segment or multlsegment file. If it 
Is not specified, the pharacter-strlng program-name. Internal-file-name 
is assuAed as the default. 
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PROCEDURE DIVISION FOR INPUT/OUTPUT 



CLOSE Statement 



The CLOSE statement terminates the processing of reels/ units and files, 
with optional rewind and/or lock where applicable. | 



General Format: 



CLOSE 



f ile-name-1 



/■reelx r W 



WITH 



ITH MO REWIND "I 
FOR REMOVAL J 

r NO REWIND 1 

L LOCK J . 



Syntax Rules: 



1. The REWIND phrase must be used only for sequential files. 

2. The files referenced in the CLOSE statement are not required to have 
the same organization or access. 

3. The REEL or UNIT phrase must be used only for sequential files. 

H. The terms "reel" and "unit" are synonymous and completely 
interchangeable in the CLOSE statement. Treatment of sequential mass 
storage files is logically equivalent to the treatment of a file on 
tape or analogous sequential media. 



General Rules: 



A file for which the EXTERNAL phrase in the SELECT clause in the 
Environment Division is specified is known as an external file; 
otherwise, that file is known as an internal file. 

If the file is internal, the CLOSE statement can be executed only when 
the file is in open mode. If the file is external, the CLOSE 
statement can be issued to the file when it is in open mode or in 
closed mode. (In closed mode the statement is ignored.) 

The FOR REMOVAL clause is used for documentation only. 

The CLOSE statement writes out the present contents of buffers, writes 
system labels, and changes the state of the file to closed mode. 
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Generally, when a STOP RUN statement is executed, any files that are 
in open mode are closed. This default action can be modified by the 
appropriate parameters on the run_cobol command. Refer to the Multics 
COBOL Users' Guide for details. 

A COBOL CLOSE for non reels/units consists of two separate Multics 
functions : 

a. A Multics close function, which performs actions such as writing 
out contents of buffers, writing labels, and changing the state 
of the file to closed. 

b. A detach function, which breaks the relationship between the 
physical file and the logical file (as described in the source 
program) . 

The file is not detached if the NO DETACH AT CLOSE clause is specified 
in the I-O CONTROL paragraph. Otherwise the file is detached if it 
was attached by the OPEN statement. 

Refer to "Non-Input/Output Errors" in Section VII, "Declaratives" in 
Section III, and '-'Input/Output Status" in this section for discussions 
of error handling. 

For the purpose of showing the effect of various types of CLOSE 
statements as applied to various storage media, all files are divided 
into the following categories: 

• Non-reel/unit. A file whose input or output medium is such that 
the concepts of rewind and reels/units have no meaning. 
Mon-reel/unit files are files contained in the Multics virtual 
memory storage system. 

• Sequential single-reel/unit. A sequential file that is entirely 
contained on one reel of tape. 

• Sequential multi-reel/unit. A sequential file that is contained 
on more than one reel of tape. 
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10. 



The results of executing each type of eloae CLOSE for each cate«orv of 
file are sumiaarised in Table 9-3. Definitions of symbols used in the 

Jni frj r" .^*^°": 1'^®''* ^^^ definition depends on whether the 
rile IS an input, output, or input-output file, alternate definitions 



Table 9-3. Relationship of File Categories 
and CLOSE Statement Formats 



CLOSE Statement Format 



CLOSE 

CLOSE WITH LOCK 

CLOSE WITH NO REWIND 

CLOSE REEL/UNIT 

CLOSE REEL/UNIT 
FOR REMOVAL 

CLOSE REEL/UNIT 
WITH NO REWIND 



Fll 



Non-Reel/Unit 



H 

H, E 
X 
X 

X 

X 



Category 
squential 



equentiaj 
Single- 
Reel/Unit 



C, G 
C, G, E 
C, B 
X 

X 

X 



Sequential 

Multi- 
Reel/Unit 



C, G, A 

C, G, E, A 

C, B, A • 

F, I 

F, D, G 
F, B 



A - Previous Reels/Units Unaffected 

S?ior t"the"SSrrS!!^^;2I ! ?'?"^^ ^^^"' *" reels/unita in the file 
-fanL^^ fu<'«'ent reel/unit are processed according to the 

nif Jhl T T^'^Di'' ^'^'^P procedure. If the current rell/uSit is 
not the last in the file, the reels/units in the file following 
the current one are not processed. loiiowmg 

?^»?/n»fH^" ' *^^ reels/units in the file prior to the current 
proJedCJe. P^°««"«*» according to the standard reel/uni? ^w^J 

B - io Rewind of Current Reel 

fhe eur.-gat rsel/uftit is ieit in its currsat position. 
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C - Close File 

Input Files and Tnput-OutDut Files; If the file is positioned at 
its end and label records are specified for the file, the labels 
are processed according to the standard label convention. The 
behavior of the CLOSE statement when label records are specified 
but not present, or when label records are not specified but are 
present, is undefined. If the file is positioned at its end and 
label records are not specified for the file, label processing 
does not take place, but other closing operations are executed. 
If the file is positioned other than at its end, no ending label 
processing occurs. 

Output Files ; If label records are specified for the file, the 

labels are processed according to the standard label convention. 

The behavior of the CLOSE statement is undefined when label 

records are specified but not present, or when label records are 
not specified but are present. If label records are not specified 

for the file, label processing does not take place, but other 
closing operations are executed. 

D - Reel/Unit Removal 

Used for documentation only. 

E - File Lock 

The WITH LOCK clause ensures that this file cannot be opened 
again during subsequent execution. If the file is Internal, it is 
locked for the remainder of the run-unit; if the file is 
external, it is locked for the remainder of the process. 

F - Close Reel/Unit 

Input Files ; The following operations take place: 

1 . A reel/unit swap 

2. The standard beginning reel/unit label procedure is executed. 

The next executed READ statement for that file makes the next 
data record on the new reel/unit available. 

Output Files and Innu t-Output Files; The following operations 
take place; 

1. For output files only, the standard ending reel/unit label 
procedure is executed. 

2. A reel/unit swap 

3. The standard beginning reel/unit label procedure is executed. 

For output files, the next executed WRITE statement that 
references that file directs the next logical data record to the 
next reel/unit of the file. 
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G - Rewind 

The current reel or analogous device is positioned at itj 
physical beginning. 



The present contents of buffers are written out, and the file 
state is changed to close mode and the corresponding I/O switch 
is detached, unless otherwise specified in the I-0-CONTROL 
paragraph. 

I - 

The current reel or analogous device is positioned at its 
physical beginning when the file is next closed. 

X - Illegal 

This is an illegal combination of a CLOSE option and a file 
category. The results at object time are unspecified. 

11. Standard procedures involved in closing a file are described in detail 
in MmUJ-g? Programmftrs' Manual . Subroutines under "tape.ansi.*' and 
"tape_ibm_". 

12. The file is automatically closed if it is in the open mode when a STOP 
RUN statement is executed, or if the program that initially opened it 
is cancelled. 

13. If the OPTIONAL phrase has been specified for the file in the 
FILE-CONTROL paragraph of the Environment Division and the file is not 
present, the standard end-of-file nrocessinff is not Derformed for that 
■file. 

14. If a CLOSE statement without the REEL or UNIT phrase has been executed 
for a file, no other statement (except the SORT statements with the 
USING or GIVING phrases) can be executed that references that file, 
either explicitly or implicitly, unless an intervening OPEN statement 
for that file is executed. 

15. The WITH NO REWIND and FOR REMOVAL phrases will have no effect at 
object time if they do not apply to the storage media on which the 
file resides. 
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PELETP g^at^gaent^ 



file. 



The DELETE statement logically removes a record from a relative or indexed 



General Format : 

DEt^ETE file-name RECORD £ ; INVALID KEY imperative-statement J 



Syntax Rules: 



The INVALID KEY phrase must not be specified for 
that references a file in sequential access mode. 



a DELETE 



tatement 



2. 



The INVALID KEY phrase must be specified for a DELETE statement that 
references a file not in sequential access mode and for which an 
applicable USE procedure is not specified. 



3. File-name must not be the name of a sequential file. 



General Rules; 



The associated file must be open in the I-O mode when 
is executed. (Refer to the OPEN statement.) 



this statement 



For files in the sequential access mode, the last input/output 
statement executed for file-name prior to the execution of the DELETE 
statement must have been a successfully executed READ statement. The 
input/output control system logically removes the record accessed by 
that READ statement from the file. 

For a file in the random access or dynamic access mode, the 
input/output control system logically removes that record identified 
by the contents of the RELATIVE KEY or RECORD KEY data item associated 
with file-name from the file. If the file does not contain the record 
specified by the key, an INVALID KEY condition exists. Refer to 
"Error Processing" at the beginning of this section. 

After the successful execution of a DELETE statement, the identified 
record has been logically removed from the file and can no longer be 
accessed. 

The execution of a DELETE statement does not affect the contents of 
the record area associated with file-name. 

The current record pointer is not affected by the execution of a 
DELETE statement. 

Execution of a DELETE statement causes the value of the specified FILE 
STATUS data item, if any, associated with file-name to be updated. 
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OPEN 



OPEH Statement 

The OPEM statement Initiates the processing of files. It also performs I 
checking and/or writing of labels and other input_output operations. | 



General Format: 



OPEN < 



INPUT {file-name-1 [wiTH NO REWINp] J 
OUTPUT ^f ile-name-2 [wiTH HO REWIND*] ^ 
I-O ^f lle-name-3y ... 
^ EXTEND (f ile-name-»i} . . . 



Syntax Rules: 



1. The NO REWIND phrase is for documentation purposes only. 

2. The 1-0 phrase can be used only for files assigned to mass storage 
devices. 

3. The EXTEND phrase can be used only for files with sequential 
organization. 

*». The files referenced in the OPEN statement are not required to have 
the same organization or access. 

5. The EXTEND phrase must not be specified for multiple file reels. 



General Rules: 



1. 

2. 
3. 



The successful execution of an OPEN statement determines the 
availability of the file and results in the file being in an open 
mode. 



The successful execution of an OPEN 
record area available to the program. 



statement makes the associated 



Prior to the successful execution of an OPEN statement for a given 
file, no statement that references that file can be executed, either 
explicitly or implicitly (except for a SORT or MERGE statement with | 
the USING or GIVING phrases). | 
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An OPEN statement must be successfully executed prior to the execution 
of any of the permissible input/output statements. In Table 9-4, an 
'X' at an Intersection indicates that the specified statement can be 
used with the file organization and access mode given in the leftmost 
columns of the row and the open mode given at the top of the column. 



Table 9-^- Input/Output Statements Permitted 
to Follow an OPEN Statement 



File 
Organization 


File 

Access 

Mode 


Statement 




Ooen 


Mode 




Input 


Output 


Input- 
Output 


Extend 


Sequential 


Sequential 


READ 

WRITE 

REWRITE 


X 


X 


X 
X 


X 


Relative 

or 
Indexed 


Sequential 


READ 

WRITE 

REWRITE 

START 

DELETE 


X 

X 


X 


X 

X 
X 
X 




Random 


READ 

WRITE 

REWRITE 

START 

DELETE 


X 


X 


X 
X 
X 

X 




Dynamic 


READ 

WRITE 

REWRITE 

START 

DELETE 


X 
X 


X 


X 
X 
X 
X 
X 




Stream 


Sequential 


READ 
WRITE 


X 


X 




' 



5. 
6. 



The execution of the OPEN statement does not 
first data record. 



obtain or release the 



The file description entry for file-name-1, file-name-3, and 
file-name-U must be equivalent to that entry used when this file was 
created. 

A file may be opened with the INPUT, OUTPUT, EXTEND, and I-O phrases 
in the same program. Following the initial execution of an OPEN 
statement for a file, each subsequent OPEN statement execution for 
that same file must be preceded by the execution of a CLOSE statement, 
without the REEL, UNIT, or LOCK phrase, for that file. 
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8. If label records are specified for the file, the beginning labels are 
processed as follows: 

a. When the INPUT phrase is specified, the execution of the OPEN 
statement causes the labels to be checlced in accordance with the 
specified conventions for input label checking, 

b. When the OUTPUT phrase is specified, the execution of the OPEN 
statement causes the labels to be written in accordance with the 
specified conventions for output label writing. 

When label records are specified but not present, or when label 
records are not specified but are present, the OPEN statement 
behaves in accordance with standard Multics conventions. 

9. If an input file is designated with the OPTIONAL phrase in its SELECT 
clause, the object program causes a check for the presence or absence 
of this file. If the file is not present, the first READ statement for 
this file causes the AT END condition to occur. (Refer to the READ 
statement. ) 

10. If the file is assigned to a tape device and the EXTEND phrase is not 
specified, execution of the OPEN statement causes the file to be 
positioned at its beginning. 

11. For files being opened with the INPUT or I-O phrase, the OPEN 
statement sets the current record pointer to the first record 

. J ^^^ -**o "-^-v.*--'. *-'.« ij-j.^. 4.i liv i c;wvi-uo cAxciu ±11 urie ilxe, 

the current record pointer is set so that the next executed Format 1 
HEAD statement I'or the file results in an AT END condition. 

12. The 1-0 phrase permits the opening of a file for both input and output 
operations. Since this phrase implies the existence of the file, it 
cannot be used if the file is being initially created. 

13. When the EXTEND phrase is specified, the OPEN statement positions the 
file immediately following the last logical record of that file. 
Subsequent WRITE statements that reference the file add records to the 
file as though the file is opened with the OUTPUT phrase. 



14. 



Upon successful execution of an OPEN statement with the OUTPUT phrase 
specified, a file is created. At that time, the associated file 
contains no data records. In the case of ANSI and IBM tapes, the user 
can modify the specific output mode concerning the creation by using 
the TAPE-OPTIONS clause in the I-0-CONTROL paragraph. 

15. A file that has the EXTERNAL clause in the SELECT clause in the 
Environment Division is known as an external file, otherwise the file 
is known as an internal file. 

16. Following the initial execution of an OPEN statement for an internal 
file, each subsequent OPEN statement for that same file must be 
preceded by the execution of a CLOSE statement for that file. (The 
OPEN and CLOSE statements must be in the same program.) 

17. If the file is an external file, the OPEN, CLOSE and other 
input/output statements can all be in different programs within the 
run-unit . 
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18. A COBOL OPEN consists of two separate Multics functions: 

a. A Multics ATTACH function, which establishes the relationship 
between the physical file and the logical file (as described in 
the source program) . 

b. A Multics OPEN function, which performs actions such as setting 
pointers and changing the state of the file to open. 

A file can be attached by: 

a. Invoking the Multics io_oall command, or by a CALL to the io_call 
subroutine. Refer to the Multics Programmers' Manual, Reference 
Guide , Order No. AG91 or the Multics COBOL Users' Guide , Order 
No. AS«3. 

b. The successful execution of an OPEN statement in a COBOL program. 

19. When the EXTEND phrase is specified and the label RECORDS clause 
indicates label records are present, the execution of the OPEN 
statement includes the following steps: 

a. The beginning file labels are processed only in the case of a 
single reel/unit file. 

b. The beginning reel/unit labels on the last existing reel/unit are 
processed as though the file was being opened with the INPUT 
phrase. 

c. The existing ending file labels are processed as though the file 
is being opened with the INPUT phrase. These labels are then 
deleted. 

d. Processing then proceeds as though the file had been opened with 
the OUTPUT phrase. 

20. A PREATTACHED file must be attached before the OPEN statement is 
executed . 
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21. When a COBOL OPEN is executed, rules for external files are: 

a. Each program in the run-unit that references an external file has 
its own record area. 

b. Each program in the run-unit that references an external file has 
its own status keys. 

c. There is only one LINAGE-COUNTER for any external file. 

22. Refer to "Mon-Input/Output Errors" in Section VII, "Declaratives" in 
Section III, and "Input/Output Status" in this section for discussions 
of error handling, 

23. Standard procedures for handling labels upon opening the file are 
described in detail in Multics Programmers' Manual , Subroutin es under 
"tape_an3i_" and "tape_ibm_". 
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For sequential access, the READ statement makes available the next logical 
record from a file. For random access, the READ statement makes available a 
specified record from a structured file. 

Format 1 (Sequential Access Files) : 



RSM file-name ^ NEXT J RECORD f INTO identifier! 
r ; AT END imperative-statement J 



Format 2 (Random Access Files) : 



i£ file-name RECORD f INTO identifier! 
[ ; KEY IS data-name J 
^ ; INVALID KEY imperative-Statement 1 



Syntax Rules: 



1. The INTO phrase must not be used when the input file contains logical 
records of various sizes as indicated by their record descriptions. 
The storage area associated with identifier and the record area 
associated with file-name must not be the same storage area. 

2. Format 1 must be used for all files in the sequential access mode. 

3- The NEXT phrase must be specified for files in the dynamic access 
node, when records are to be retrieved sequentially. 

4, Format 2 is used for files in the random access mode or for files in 
the dynamic access mode when records are to be retrieved randomly. 

5. The INVALID KEY phrase or the AT END phrase must be specified if no 
applicable USE procedure is specified for file-name. 

5. Data-name must be the name of the data item specified as the record 
key associated with file-name. 

7. Data-narae can be qualified. 

8. The KEY phrase can be specified only for indexed files. 

9. For sequential files or stream files the NEXT phrase is optional, and 
has no effect on the execution of the READ statement. 
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General Rules: 

1 . The associated files must be open In the INPUT or I-O mode when this 
statement is executed. (Refer to the OPEN statement.) 

2. The record to be made available by a Format 1 READ statement is 
determined as follows: 

a. The record, pointed to by the current record pointer, is made 
available provided that the current record pointer was positioned 
by the START or OPEN statement and the record is still accessible 
through the path indicated by the current record pointer. If the 
record is no longer accessible, possibly due to the deletion of 
the record or a change in an alternate record key, the current 
record pointer is updated to point to the next existing record 
within the established key of reference; and that record is then 
made available. 

b. If the current record pointer was positioned by the execution of 
a previous READ statement, the current record pointer is updated 
to point to the next existing record in the file with the 
established key of reference and that record is then made 
available. 

3. The execution of the READ statement causes the value of the FILE 
STATUS data item, if any, associated with file-name to be updated. 

4. If the READ is successful, the logical record is available to the 
object program prior to the execution of any statement following the 
READ statement. 

5. When the logical records of a file are described with more than one 
recor>a \jescrxpuXon, ^nese reccr\.i3 au^omaL'Xcaxj.y Snare t^ne same s^/Crage 
area; this is equivalent to the implicit redefinition of the area. 
The contents of any data items which lie beyond the range of the 
current data record are not disturbed at the completion of the 
execution of the READ statement. 

6. If the INTO phrase is specified, the record being read is moved from 
the record area to the area specified by identifier according to the 
rules specified for the MOVE statement without the CORRESPONDING 
phrase. The implied MOVE does not occur if the execution of the READ 
statement is unsuccessful. Any subscripting or indexing associated 
with identifier is evaluated after the record is read and immediately 
before it is moved to the data item. 

7. When the INTO phrase is used, the record being read is available in 
both the input record area and the data area associated with 
identifier. 

8. If, at the time of execution of a Format 1 READ statement, the 
position of the current record pointer for that file is undefined, the 
execution of that READ statement is unsuccessful. 
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9. Whffl the AT END condition is recognized, the following actions are 
ta en in the specified order: 

a. A value is placed into the FILE STATUS data item, if specified 
for this file, to indicate an AT END condition. 

b. If the AT END phrase is specified in the statement causing the 
condition, control is transferred to the AT END 
imperative-statement. Any USE procedure specified for this file 
is not executed. 

c. If the AT END phrase is not specified, then a USE procedure must 
be specified for this file, and that procedure is executed. 

When the AT END condition occurs, execution of the Input/output 
statement that caused the condition is unsuccessful. 

10. If at the time of the execution of a Format 1 READ statement no next 
logical recofd exists in the file, the AT END condition occurs, and 
the execution of the READ statement is considered unsuccessful. 

11. Following the unsuccessful execution of any READ statement, the 
contents of the associated record area and the position of the current 
record pointer are undefined. For indexed files, the key of reference 
is also undefined. 

12. When the AT END condition has been recognized, a Format 1 READ 
statement for that file must not be executed without first executing 
one of the following: 

a. A successful CLOSE statement followed by the execution of a 
successful OPEN statement for that file. 

b. A successful START statement for that file. 

c. A successful Format 2 READ statement for that file. 

13- For a file for which dynamic access mode is specified, a Format 1 READ 
statement with the NEXT phrase specified retrieves the next logical 
record from that file as described in general rule 2. 

14. For an indexed file being sequentially accessed, records having the 
same duplicate value in an alternate record key which is the key of 
reference are made available in the same order in which they are 
released by execution of the WRITE statements, or by execution of 
REWRITE statements which create such duplicate values. 

15. For an indexed file if the KEY phrase is specified in a Format 2 READ 
statement, data-name is established as the key of reference for the 
retrieval. If the dynamic access mode is specified, this key of 
reference is also used for retrievals by any subsequent executions of 
Format 1 READ statements for the file until a different key of 
reference is established for the file. 

16. If the KEY phrase is not specified in a Format 2 READ statement, the 
prime record key is established as the key of reference for the 
retrieval. If the dynamic access mode is specified, this key of 
reference is also used for retrievals by any subsequent executions of 
Format 1 READ statements for the file until a different key of 
reference is established for the file. 
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17. If the RELATIVE KEY phrase is specified in the SELECT statement, the 
execution of a Format 1 READ statement updates the contents of the 
RELATIVE KEY data item such that it contains the relative record 
number of the record made available, 

18. The execution of a Format 2 READ statement for a relative file sets 
the current record pointer to, and makes ava ilable, the recor d w hose 
relative record number is contained in the data item named in the 
RELATIVE KEY phrase for the file. If the file does not contain, such a 
record, the INVALID KEY condition exists and the execution of the READ 
statement is unsuccessful. Refer to "Error Processing" at the 
beginning of this section, 

19. For an indexed file, execution of a Format 2 READ statement causes the 
value of the key of reference to be compared with the value contained 
in the corresponding data item of the stored records in the file, 
until the first record having an equal value is found. The current 
record pointer is positioned to this record, which is then made 
available. If no record can be so identified, the INVALID KEY 
condition exists and execution of the READ statement is unsuccessful. 

20. If the DEPENDING ON clause is specified (when this file is written) in 
the OCCURS clause, records can vary in length. It is the user's 
responsibility to determine the actual record length when the records 
are read, 

21. Refer to the RECORD CONTAINS ,.. DEPENDING ON clause earlier in this 
section for additional information on records that can vary in size. 
After a READ, identifier- 1 of the RECORD CONTAINS clause has its 
contents updated to reflect the size of the record read. 

22. Records in files with stream organization are delimited by a newline 
character. This character Is not transferred as part of the record. 

23. Refer to "Non-Input/Output Errors" in Section VII, "Declaratives" in 
Section III and "Input/Output Status" in this section for discussions 
of error handling, 

24. If the end of a reel or unit is recognized during execution of a READ 
statement and the logical end of file has not been reached, the 
following operations are executed: 

a. The standard ending reel/unit label procedure, 

b, A reel/unit swap, 

G, The standard beginning reel/unit label procedure, 

d. The first data record of the new reel/unit is made available. 

25. If a file described with the OPTIONAL phrase is not present at the 
time the file is opened, then at the time of execution of the first 
READ statement for the file, the AT END condition occurs and execution 
of the READ statement is unsuccessful. The standard end-of-file 
procedures are not performed. (Refer to "FILE-CONTROL Paragraph," 
"OPEN Statement," "USE Statement," and "Input/Output Status" in this 
section,) Execution of the program then proceeds as specified in 
general rule 12, 

26 . Standard procedures for handling labels upon opening the file are 
described in Section V of the MPM Peripheral Input/Output , Order No, 
AX49 under "tape_ansi_" and "tape_ibm_". 
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REWRITE Statement 

The REWRITE statement logically replaces a record existing in a file. 
General Format: 

REWRITE record-name ^ FROM identifier] ^; INVALID KEY imperative-statement] 

Syntax Rules: 

1. Record-name and identifier must not refer to the same storage area. 

2. Record-name is the name of a logical record in the File Section of the 
Data Division and can be qualified. 

3. The INVALID KEY phrase must not be specified for a REWRITE statement 
which references a relative file in the sequential access mode, or a 
sequential file. 

h. The INVALID KEY phrase must be specified in the REWRITE statement for 
files in the random or dynamic access mode for which an appropriate 
USE procedure is not specified. 

General Rules: 

1. The file associated with record-name must be a structured file and 
must be open in the I-O mode when this statement is executed. (Refer 
to the OPEN statement.) 

2. For files in the sequential access mode, the last input/output 
statement executed for the associated file prior to the execution of 
the REWRITE statement must have been a successfully executed READ 
statement. The input/output control system logically replaces the 
record accessed by the READ statement. 

3. The number of character positions in the record referenced by 
record-name must be equal to the number of character positions in the 
record being replaced. 

4. The logical record released by a successful execution of the REWRITE 
statement is no longer available in the record area unless the 
associated file is named in a SAME RECORD AREA clause, in which case 
the logical record is available to the program as a record of other 
files appearing in the same SAME RECORD AREA clause as the associated 
1-0 file, as well as to the file associated with record-name. 
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5. The execution of a REWRITE statement containing a FROM phrase is 
equivalent to the execution of the statement 

MOVE identifier TO record-name 

followed by the execution of the same REWRITE statement without the 
FROM phrase. The contents of the record area prior to the execution 
of the implicit MOVE statement have no effect on the execution of the 
REWRITE statement. 

6. The current record pointer is not affected by the execution of a 
REWRITE statement. 

7. The execution of the REWRITE statement causes the value of the FILE 
STATUS data item, if any, associated with file-name to be updated. 

8. For a relative file accessed in either the random or dynamic access 
mode, the input/output control system logically replaces the record 
specified by the contents of the RELATIVE KEY data item associated 
with the file. If the file does not contain the record specified by 
the key, the INVALID KEY condition exists. The updating operation 
does not take place and the data in the record area is unaffected. 
Refer to "Error Processing" at the beginning of this section. 

9. For an indexed file in the sequential access mode, the record to be 
replaced is specified by the value contained in the prime record key. | 
When the REWRITE statement is executed, the value contained in the 
prime record key data item of the record to be replaced must be equal 
to the value of the prime record key of the last record read from this 
file. 

10. For an indexed file in the random or dynamic access mode, the record 
to be replaced is specified by the prime record key data item. 

11. The contents of alternate record key data items of the record being 
rewritten may differ from those in the record being replaced. The 
input/output control system utilizes the contents of the record key 
data items during the execution of the REWRITE statement in such a way 
that subsequent access of the record may be made based on any of those 
specified record keys. 

12. For an indexed file, the INVALID KEY condition exists when: 

a. The access mode is sequential and the value contained in the 
prime record key data item of the record to be replaced is not I 
equal to the value of the prime record key of the last record | 
read from this file. 

b. The value contained in the prime record key data item does not | 
equal that of any record stored in the file. 

c. The value contained in an alternate record key data item for I 
which a DUPLICATES clause has not been specified, is equal to I 
that of a record already stored in the file. | 

The updating operation does not take place and the data in the record 
area is unaffected. 



I 
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START Statement 



The START statement provides a basis for logical positioning within a 
relative or indexed file, for subsequent sequential retrieval of records. 



General Format: 



START file-name 



KEY 



IS EQUAL TO 
IS = 

IS GREATER THAN 
' IS > 

IS NOT LESS THAN 
IS NOT < 



data-name 



r ; INVALID KEY imperative-statement J 



NOTE: The required relational character 
avoid confusion with other symbols 



'=' is not underlined to 



Syntax Rules; 



1 . File-name must be the name of a relative or indexed file with 
sequential or dynamic access. 

2. Data-name can be qualified. 

3. The INVALID KEY phrase must be specified if no applicable USE 
procedure is specified for file-name. 

k. If file-name is the name of a relative file, data-name, if specified, 
must be the data item specified in the RELATIVE KEY phrase of the 
associated file control entry. 

5. If file-name is the name of an indexed file, and if the KEY phrase is 
specified, data-name can reference a data item specified as a record 
key associated with file-name, or it can reference any data item of 
category alphanumeric subordinate to the data-name of a data item 
specified as a record key associated with file-name whose leftmost 
character position corresponds to the leftmost character position of 
that record key data item. 
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General Rules: 

1 . File-name must be open in the INPUT or I-O mode when the START 
statement is executed. (Refer to the OPEN statement.) 

2. If the KEY phrase is not specified, the relational operator IS EQUAL 
TO is implied, 

3. For a relative file, the type of comparison specified by the 
relational operator in the KEY phrase occurs between a key associated 
with a record in the file referenced by file«>name and the data item 
referenced by the RELATIVE KEY clause associated with file-name. 

a. The current record pointer is positioned to the first logical 
record currently existing in the file whose key satisfies the 
comparison. 

b. If the comparison is not satisfied by any record in the file, an 
INVALID KEY condition exists, the execution of the START 
statement is unsuccessful, and the position of the current record 
pointer is undefined. 

4. For an indexed file, the type of comparison specified by the 
relational operator in the KEY phrase occurs between a key associated 
with a record in the file referenced by file-name and a data item as 
specified in general rule 5. If the operands are of unequal size, 
comparison proceeds as though the longer one is truncated on the right 
so that its length is equal to that of the shorter. All other 
nonnumeric comparison rules apply except that the presence of the 
PROGRAM COLLATING SEQUENCE phrase will have no effect on the 
comparison (ASCII is always used). 

a. The current record pointer is positioned to the first logical 
record currently existing in the file whose key satisfies the 
comparison. 

b. If the comparison is not satisfied by any record in the file, an 
INVALID KEY condition exists, the execution of the START 
statement is unsuccessful, and the position of the current record 
pointer is undefined. 

5. For an indexed file, if the KEY phrase is specified, the comparison 
described in general rule 3 uses the data item referenced by 
data-name. If the KEY phrase is not specified, the comparison 
described in general rule 3 uses the data item referenced in the 
RECORD KEY clause associated with file-name. 

6. Upon completion of the successful execution of the START statement, a 
key of reference is established and in subsequent Format 1 READ 
statements: 

a. If the KEY phrase is not specified, the prime record key 
specified for file-name becomes the key of reference 

b. If the KEY phrase is specified, and data-name is specified as a 
record key for file-name, that record key becomes the key of 
reference. 
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G. If the KEY phrase is specified, and data-name is not specified as 
a record key for file-name, the record key whose leftmost 
character position corresponds to the leftmost character position 
of data item specified by data-name, becomes the key of 
reference. 

7. The execution of the START statement causes the value of the FILE 
STATUS data item, if any, associated with file-name to be updated. 

8. For an indexed file, if the execution of the START statement is not 
successful, the key of reference is undefined. 
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USE Statement 



The USE statement specifies procedures for input/output error handling that 
are in addition to the standard procedures provided by the input/output control 
system. 



General Format: 



EXCEPTION 
USE AFTER STANDARD S f PROCEDURE ON 

ERROR 



{ EXCEPTION 1 
ERROR J 



file-name- 1 F, file-name-2 J ... 

INPUT ^ "• 

OUTPUT 

I-O 

EXTEND 



Syntax Rules; 



1. When present, a USE statement must immediately follow a section header 
in the declarative section and must be followed by a period followed 
by a space. The remainder of the section must consist of zero, one, 
or more procedural paragraphs that define the procedures to be used. 

2. The USE statement itself is never executed; it merely defines the 
conditions calling for the execution of the USE procedures. 

3. The same file-name may not appear in more than one USE procedure. 

H. The words ERROR and EXCEPTION are synonymous and may be used 
interchangeably. 

5. The files explicitly or implicitly referenced in a USE statement are 
not all required to have the same organization or access. 

6. Conditions may arise when a choice must be made between the execution 
of one of two USE procedures. The procedure specified by file-name 
shall prevail. 



General Rules; 



1. The designated procedures are executed by the input/output system 
after completing the standard input/output error routine, or upon 
recognition of the INVALID KEY or AT END conditions, when the INVALID 
key phrase or AT END phrase, respectively, is not specified in the 
input/output statement. 

2. After the execution of a USE procedure, control is returned to the 
next executable statement after the I/O statement. A USE procedure is 
executed by the logical equivalent of a PERFORM. 

3. A GO TO or a PERFORM from a declarative either to another declarative 
or to the nondeclarative portion of the program is allowed. An 
observation diagnostic is issued. 

H. A GO TO from a nondeclarative to a declarative causes a fatal 
diagnostic to be issued. A PERFORM from a nondeclarative to a 
declarative is allowed; no diagnostic is issued. 
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WRITE Statement 



The WRITE statement releases a logical record for an output file, 
also be used for vertical positioning of lines within a logical page. 



'It can 



Format 1 : (Sequential Files) 

WRITE record-name I FROM identifier-1 ] 

BEFORE 



f BEFORE 1 
L AFTER J 



ADVANCING 



r identifier-2 1 I" LINE "j 
L integer J L LINES J 
J mnemonic-name 1 
^ L PAGE J 

{" r END-OF-PAGE \ 1 

; AT ^ f imperative-statement-1 I 

L L EOF J J 



ah 7» ^PaTa4-T«a onH TrxAt^va/i C-i 1 . 



WRITE record-name f FROM identifier-1 1 

[| ; INVALID KEY imperative-statement-2 ]] 



Syntax Rules: 



1. Record-name and identifier-1 must not reference the same storage area. 

2. When a mnemonic-name is specified, the name is associated with a 
particular feature of a hardware device and must be defined by the 
SPECIAL-NAMES paragraph of the Environment Division. 

3. The record-name is the name of a logical record .in the File Section of 
the Data Division and may be qualified. 

4. The ADVANCING phrase may be used only if record-name is associated 
with a sequential file or stream file. 

5. When identifier-2 is used in the ADVANCING phrase, it must be the name 
of an elementary unsigned integer data item. 

5. If the END-OF-PAGE phrase is specified, a LINAGE clause must be 
specified by the FD entry of the associated file. 
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7. The words EUD-OF-PAGE and EOP are equivalent. 

8. The ADVANCING mnemonic-name phrase cannot be specified if the FD entry 
for the associated file contains a LINAGE clause. 

9. Integer or the value of the data item referenced by identifier-2 can 
be zero but not more than 120. 

10. The INVALID KEY phrase must not be specified if record-name is 
associated with a sequential file. 

11. The INVALID KEY phrase must be specified if an applicable USE 
procedure is not specified for the associated relative or indexed 
file. 



General Rules : 

1. The associated file must be open in the OUTPUT, I-O, or EXTEND mode 
when the WRITE statement is executed. (Refer to the OPEN statement.) 

2. The logical record released by the execution of the WRITE statement is 
no longer available in the record area unless the associated file is 
named in a SAME RECORD AREA clause or the execution of the WRITE 
statement was unsuccessful due to an invalid key condition or a 
boundary violation. The logical record is also available to the 
program as a record of other files referenced in the same SAME RECORD 
AREA clause as the associated output file, as well as to the file 
associated with record-name. 

3. The result of the execution of a WRITE statement containing a FROM 
phrase is equivalent to the execution of the statement 

MOVE identifier- 1 TO record-name 

according to the rules specified for the MOVE statement without the 
corresponding phrase, followed by the same WRITE statement without the 
FROM phrase. 

The contents of the record area prior to the execution of the implicit 
MOVE statement have no effect on the execution of this WRITE 
statement. 

After execution of the WRITE statement is complete, the information in 
the area referenced by identifier-1 is available, even though the 
information in the area referenced by record-name may not be. (Refer 
. to general rule 2.) 

4. The current record pointer is unaffected by the execution of a WRITE 
statement . 

5. The execution of the WRITE statement causes the value of the FILE 
STATUS data item, if any, associated with the file to be updated. 

5. The maximum record size for a file is established at the time the file 
is created and must not subsequently be changed. 



9-60 ASU4 



WRITE WRITE 



7. The number of eharaeter positions on a mass storage device required to 

&1/W1 ^ a xv^xwcix I o^^vi u jLki a j.jlxc Uiay kjl ulaj iiu u uc cC|uax irU uiic iiuiiluci 

of character positions defined by the logical description of that 
record in the program. 

8. The execution of the WRITE statement releases a logical record to the 
input/output control system. 

9. If the DEPENDING ON phrase is specified in the OCCURS clause, only the 
number of occurrences specified in the data-name are written (plus the 
fixed portion of the record, if specified). 

10. The contents of identifier-1 of the RECORD DEPENDING ON clause, 
immediately before execution of the WRITE, is used to determine the 
number of characters written out. Refer to the RECORD CONTAINS ... 
DEPENDING ON clause earlier in this section. 

11. After the recognition of an end-of-reel or an end-of-unit of an output 
file tnat is contained on more than one physical reel/unit, the WRITE 
statement performs the following operations: 

a. The standard ending reel/unit label procedure 

b. A reel/unit swap 

c. The standard beginning reel/unit label procedure 

12. Standard procedures for handling labels upon opening the file are 
described in detail in Multics Programmers* Manual , Subroutines under 
"tape_ansi_" and "tape_ibm_". 

13. The mnemonic-'name specified must have been defined in the 
SPECIAL-NAMES paragraph as associated with either HOF or CHANNEL-m. 

14. For an indexed file or a relative file the INVALID KEY phrase must be 
specified if an applicable USE procedure is not specified for the 
associated file. 



All Files 

1 . The logical record released by the execution of the WRITE statement is 
no longer available in the record area unless the associated file is 
named in a SAME RECORD AREA clause, or the execution of the WRITE 
statement was unsuccessful due to a boundary violation or an INVALID 
KEY condition. The logical record is also available to the program as 
a record of other files referenced in the same SAME RECORD AREA clause 
as the associated output file, as well as to the file associated with 
record-name. 

2. The results of the execution of the WRITE statement with the FROM 
phrase is equivalent to the execution of the statement: 

MOVE identifier-1 TO record-name 

according to the rules specified for the MOVE statement, followed by 
the same WRITE statement without the FROM phrase. 
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The contents of the record area prior to the execution of the implicit 
MOVE ststeznent have no effect on the execution of this WRITE 
statement. 

After execution of the WRITE statement is complete, the information in 
the area referenced by identifier-1 is available, even tnough the 
information in the area referenced by record-name may not be. (See 
rule 1 above.) 

3. The current record pointer is unaffected by the execution of a WRITE 
statement. 

4. The execution of the WRITE statement causes the value of the FILE 
STATUS data item, if any, associated with the file to be updated. 

5. The execution of the WRITE statement releases a logical record to the 
operating system. 
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Sequential and Stream Files : 

1. Both the ADVANCING and END-OF-PAGE phrases allow control of the 
vertical positioning of each line on a representation of a printed 
page. If the ADVANCING phrase is not used, automatic advancing is 
provided as if the user had specified AFTER ADVANCING 1 LINE. If the 
ADVANCING phrase is used, advancing is provided as follows: 

a. If identifier-2 is specified, the representation of the printed 
page is advanced the number of lines equal to the current value 
associate|d with identifier-2. 

b. If integer is specified, the representation of the printed page 
is advanced the number of lines equal to the value of integer. 

c. If mnemonic-name is specified, it must be associated with the 
implementor-name HOF in the SPECIAL-NAMES paragraph. If 
specified, the representation of the printed page is advanced to 
the next head of form. 

d. If the BEFORE phrase is used, the line is presented before the 
representation of the printed page is advanced according to rules 
a and b above. 

e. If the AFTER phrase is used, the line is presented after the 
representation of the printed page is advanced according to rules 
a and b above. 

f. If PAGE is specified, the record is presented on the logical page 
before or after (depending on the phrase used) the device is 
repositioned to the next logical page. If the record to be 
written is associated with a file whose file description entry 
contains a LINAGE clause, repositioning is to the first line that 
can be written on the next logical page as specified in the 
LINAGE clause. If the record to be written is associated with a 
file whose file description entry does not contain a LINAGE 
clause, repositioning to the next logical page is accomplished in 
accordance with an implementor-def ined technique. If page has no 
meaning in conjunction with a specific device, advancing will be 
provided by the implementor to act as if the user had specified 
BEFORE or AFTER (depending on the phrase used) ADVANCING 1 LINE. 

2. When an attempt is made to write beyond the externally defined 
boundaries of a sequential or stream file, an exception condition 
exists and the contents of the record area are unaffected. The 
following action takes place: 

a. The value of the FILE STATUS data item, if any, of the associated 
file is set to a value indicating a boundary violation. Refer to 
"Input/Output Status" at the beginning of this section. 

b. If a USE AFTER STANDARD EXCEPTION declarative is explicitly or 
implicitly specified for the file, that declarative procedure is 
then executed. 

c. If a USE AFTER STANDARD EXCEPTION declarative is not explicitly 
or implicitly specified for the file, the error is reported to 
the error_output I/O switch, and control returns to command 
level . 
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3. When a WRITE is executed, a newline character is appended to the 
record. This character is part of the record on the file, but is not 
returned via a READ. Thus, the user must not place newline characters 
in the record area. 

4. If the logical end of the representation of the printer page is 
reached during execution of a WRITE statement with the END-OF-PAGE 
option, the imperative statement following END-OF-PAGE is executed. 
The logical end of a page is specified by the LINAGE clause associated 
with the record-name. 

5. An end-of-page condition is reached whenever the execution of a given 
WRITE statement with the END-OF-PAGE phrase causes printing or spacing 
within the footing area of a page body. This occurs when the 
execution of such a WRITE statement causes the LINAGE-COUNTER to equal 
or exceed the value specified by integer-2 or the data item referenced 
by data-name-2 of the LINAGE clause, if specified. In this case, the 
WRITE statement is executed, and then the imperative statement in the 
END-OF-PAGE phrase is executed. 

An automatic page overflow condition is reached whenever the execution 
of a given WRITE statement (with or without an END-OF-PAGE phrase) 
cannot be fully accommodated within the current page body. This 
occurs when a WRITE statement, if executed, would cause the 
LINAGE-COUNTER to exceed the value specified by integer-1 or the data 
item referenced by data-name-1 of the LINAGE clause. In this case, 
the record is presented on the logical page before or after (depending 
on the phrase used) the device is repositioned to the first line that 
can be written on the next logical page as specified in the LINAGE 
clause. The imperative statement in the END-OF-PAGE clause, if 
specified, is executed after the record is written and the device has 
been repositioned. 

If integer-2 or data-name-2 of the LINAGE clause is not specified, no 
end-of-page condition distinct from the page overflow condition is 
detected. In this case, the end-of-page condition and page overflow 
condition occur simultaneously. 

If integer-2 or data-name-2 of the LINAGE clause is specified, but the 
execution of a given WRITE statement would cause LINAGE-COUNTER 
simultaneously to exceed the value of both integer-2 or the data item 
referenced by data-name-2 and integer-1 or the data item referenced by 
data-name-1 , the operation proceeds as if integer-2 or data-name-2 had 
not been specified. 
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Relative Files : 

1. When a relative file is opened in the output mode, records can be 
placed into the file using one of the following procedures: 

a. If the access mode is sequential, the WHITE statement causes a 
record to be released to the input/output control system. The 
first record has a relative record number of one (1) and 
subsequent records released have relative record numbers of 2, 3, 
4, .... If the RELATIVE KEY data item is specified in the file 
control entry for the associated file, the relative record number 
of the record just released is placed into the RELATIVE KEY data 
item by the input/output control system during execution of the 
WRITE statement. 

b. If the access mode is random or dynamic, prior to the execution 
of the WRITE statement, the value of the RELATIVE KEY data item 
must be initialized in the program with the relative record 
number to be associated with the record in the record area. That 
record is then released to the input/output control system by the 
execution of the WRITE statement. 

2. When a relative file is opened in the I-O mode and the access mode is 
random or dynamic, records are to be inserted in the associated file. 
The value of the RELATIVE KEY data item must be initialized by the 
program with the relative record number to be associated with the 
record in the record area. The execution of a WRITE statement then 
causes the contents of the record area to be released to the 
input/output control system. 

3. The INVALID KEY condition exists under the following circumstances: 

a. When the access mode is random or dynamic, and the RELATIVE KEY 
data item specifies a record that already exists in the file. 

b. When an attempt is made to write beyond the externally defined 
boundaries of the file. 
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Indexed Files : 

1 . The value of the prime record key must be unique within the records in I 
the file. 

2. The data item specified as the prime record key must be set by the | 
program to the desired value prior to the execution of the WRITE 
statement. 

3. If the sequential access mode is specified for the file, records must 
be released to the input/output control system in ascending order of 
prime record key values. I 

4. If the random or dynamic access mode is specified, records can be 
released to the input/output control system in any program specified 
order. 

5. The INVALID KEY condition exists under the following circumstances: 

a. When the sequential access mode is specified for a file opened in 
the output mode, and the value of the prime record key is not I 
greater than the value of the prime record key of the previous | 
record. 

b. When the file is opened in the output or I-O mode, and the value 

of the prime record key is equal to the value of a prime record | 
key of a record already existing in the file. 

c. When the file is opened in the output or 1-0 mode, and the value 
of an alternate record key, for which duplicates are not allowed, 
equals the corresponding data item of a record already existing 
in the file. 

d. When an attempt is made to write beyond the externally defined 
boundaries of the file. 

6. When the ALTERNATE RECORD KEY clause is specified in the file control 
entry for an indexed file, the value of the alternate record key may 
be non-unique only if the DUPLICATES phrase is specified for that data 
item. In this case the input/output control system provides storage 
of records such that when records are accessed sequentially, the order 
of retrieval of those records is the order in which they were written. 



Indexed and Relative Files : 

1 =. When the INVALID KEY condition is recognized the execution of the 
WRITE statement is unsuccessful, the contents of the record area are 
unaffected, and the FILE STATUS data item, if any, of the associated 
file is set to a value indicating the cause of the condition. The 
execution of the program proceeds as stated under Input/Output Status 
at the beginning of this section. 
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DESCRIPTION OF SORT-MEBGE 

The sort-merge feature In Multlcs COBOL provides the capability to order 
one or more files of records, or to combine two or more identically ordered 
files of records, according to a set of user-specified keys contained within 
each record. Optionally, a user may apply some special processing to each of 
the individual records by input or output procedures. This special processing 
may be applied before and/or after the records are ordered by the sort or after 
the records have been combined by the merge. 



Record Ordering 

The ability to arrange records into a particular order is a common 
requirement of a data processing user. The sort and merge features of COBOL 
provide facilities to assist in meeting this requirement. 

While both are concerned with record ordering, the functions and 
capabilities of the SORT and MERGE statements are different in a number of 
respects. The SORT statement produces an ordered file from one or more files 
that may be completely unordered in the sort sequence, whereas the MERGE 
stateisent can only produce an ordered file from two or more files, each of which 
is already ordered in the specified sequence. 

In many applications, it is necessary to apply some special processing to 
the contents of the sort or merge file(s) before or after sorting or merging. 
This special processing may consist of addition, deletion, creation, altering, 
editing, or other modification of the individual records in the file. The COBOL 
sort-merge feature allows the user to express these procedures in the COBOL 
language. A COBOL program may contain any number of sorts and merges, and each 
of them may have its own independent special procedures. The sort-merge feature 
automatically causes execution of these procedures in such a way that extra 
passes over the sort or merge files are not required. 



Relationship vfith File Input-Output 

The files specified in the USING and GIVING phrases of the SORT and MERGE 
statements must be described explicitly or implicitly in the FILE-CONTROL 
paragraph as having sequential organization. No input-output statement may be 
executed for the file named in the sort-merge file description. 
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ENVIRONMENT DIVISION FOR SORT-MERGE - INPUT-OUTPUT SECTION 



FILE-CONTROL Paragraph 

The FILE-CONTROL paragraph for sort-merge nanes each file and allows 
specification of other file-related infornatlon. 



General Format: 

FILE-CONTROL . ^ f ile-control-entry ]^ ... 

File Control Entry 

The file control entry names a sort or merge file and specifies the 
association of the file to a storage device. 

General Format: 

SELECT file-name ASSIGN TO internal-file-name, 

Syntax Rules: 

1. Each sort or merge file described in the Data Division must be named 
once, and only once, as file-name in the FILE-CONTROL paragraph. Each 
sort or merge file specified in the file control entry must have a 
sort-merge file description entry in the Data Division. 

2. Since file-name represents a sort or merge file, only the ASSIGN 
clause is permitted to follow file-name in the FILE-CONTROL paragraph. 

3. Internal-file-name can contain from 1 to 16 ASCII graphic characters. 
The blank, minus (or hyphen), and leading or trailing period 
characters cannot be part of the internal-file-name. 

General Rule: 

1. The internal-file-name is for documentation purposes only. 
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I-0-CONTROL 



I-0-COMTROL Paragraph 

The I-0-COHTROL paragraph for sort-merge specifies the memory area that is 
to be shared by different files. 



General Format: 



I-0-COMTROL. 



[r RECORD T 

; SAME I SORT \ 

{ SSBT-MERGE I 



AREA FOR file-name 



-'{. 



flle-name-2 



)...] 



Syntax Rules: 



1. The I-0-CONTROL paragraph for sort-merge is optional. 

2. In the SAHE AREA clause, SORT and SORT-MERGE are equivalent. 

3. If the SAME SORT AREA or SAME SORT-MERGE AREA clause is used, at least 
one of the file-names must represent a sort or merge file. Files that 
do not represent sort or merge files may also be named in the clause. 

4. The three formats of the SAME clause (SAME RECORD AREA, SAME SORT 
AREA, SAME SORT-MERGE AREA) are considered separately in the 
following: 

More than one SAME clause may be included in a program. However: 

a. A file-name must not appear in more than one SAME RECORD AREA 
clause. 

b. A file-name that represents a sort or merge file must not appear 
in more than one SAME SORT AREA or SAME SORT-MERGE AREA clause. 

c. If a file-name that does not represent a sort or merge file 
appears in a SAME AREA clause and in one or more SAME SORT AREA 
or SAME SORT-MERGE AREA clauses, all of the files named in that 
SAME AREA clause roust be named in that SAME SORT AREA or SAME 
SORT-MERGE AREA clause(s). Refer to the I-O-COHTROL paragraph in 
Section IX, File Input-Output. / 

5. The files referenced in the SAME SORT AREA, SAME SORT-MERGE AREA, or 
SAME RECORD AREA clause are not all required to have the same 
organization or access. 
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I-0-CONTROL 



General Rules: 



The SAME RECORD AREA clause specifies that two or more files are to 
use the same memory area for processing the current logical record. 
All of the files may be open at the same time. A logical record in 
the SAME RECORD AREA is considered as a logical record of each opened 
output file whose file-name appears in this SAME RECORD AREA clause 
and of the most recently read input file whose file-name appears in 
this SAME RECORD AREA clause. This is equivalent to implicit 
redefinition of the area; that is, records are aligned on the leftmost 
character position. 

If the SAME SORT AREA or SAME SORT-MERGE AREA clause is used, at least 
one of the file-names must represent a sort file or a merge file. 
Files that do not represent sort or merge files may also be named in 
the clause. 
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SD SKELETON SO SKELETON 



DATA DIVISIOM FOR SORT-HERGE 



File Section for Sort-Merge 



An SD file description Is used* to provide information about the size and 
the names of the data records associated with the file to be sorted or merged. 
There are no label procedures that the user can control, and the rules for 
blocking and Internal storage are peculiar to the SORT and MERGE statements. 



File Description - Complete SD Entry Skeleton 

The sort-merge file description furnishes Information concerning the 
physical structure, identification, and record-names of the file to be sorted or 
merged . 



General Format: 

SD file-name 

rf RECORD IS "1 _ -I 1 

L, unin \ f uaba-iiamc- 1 i , aB<;a-nane-£ i ... j 

^^ RECORDS ARE J *" "'J 

I ; RECORD CONTAINS [^ integer- 1 TO ] integer-2 CHARACTERS 

[] DEPENDING ON data-name-3 ] I • 

Syntax Rules: 

1. The level indicator SD identifies the beginning of the sort-merge file 
description and must precede the file-name. 

2. The clauses that follow the name of the file are optional and their 
order of appearance is not significant. 

3. One or more record description entries must follow the sort-merge file 
description entry. However, no input-output statements may be 
executed for this file. 
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PROCEDURE DIVISION FOR SORT-MERGE 



MERGE Statement 



The MERGE statement combines two or more identically sequenced files on a 
set of specified keys, and during the process makes records available, in merged 
order, to an output procedure or to an output file. 



General Format: 



MERGE file-name-1 ON 



{ ASCENDING "| j. - 

f KEY data-name-1 I , data-name-2 J 
DESCENDING J ** *' 



[f ASCENDING "1 
I DESCENDING J 



KEY data-name' 



3[. 



data-name-t 



]...] 



r COLLATING SEQUENCE IS alphabet-name ] 

USING f lle-name-2 , file-name-3 L » fUe-name-l J 

THROUGH 



OUTPUT PROCEDURE IS section-name-1 



GIVING file-name-5 



r f THROUGH 1 
\ \ THRU J 



section-name 



-] 



Syntax Rules: 



1. File-name-1 must be described in a sort-merge file description entry 
in the Data Division. 

2. Section-name-1 represents the name of an output procedure. 
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3. File-name-2, file-name-3, f lle-name-4 , and file-name-5 must be 
described in a file description entry, not in a sort-merge file 
description entry, in the Data Division. The actual size of the 
logical recordCs) described for file-name-2, file-name-3, f ile-name-U , 
and file-narae-5 must be equal to the actual size of the logical 
recordCs) described for file-name-1. If the data descriptions of the 
elementary items that make up these records are not identical, it is 
the user's responsibility to describe the corresponding records in 
such a manner to cause an equal number of character positions to be 
allocated for the corresponding records. 

1. The words THRU and THROUGH are equivalent. 

5. Data-name-1, data-name-2, data-name-3, and data-name-4 are KEY 
data-names and are subject to the following rules: 

a. The data items Identified by KEY data-names must be described in 
records associated with file-name-1. 

b. KEY data-names may be qualified. 

c. The data items identified by KEY data-names must not be 
variable-length data items. 

d. If file-name-1 has more than one record description, the data 
items identified by KEY data-names are required to be described 
in only one of the record descriptions. 

e. None of the data items identified by KEY data-names can be 
described by an entry that either contains an OCCURS clause or is 
subordinate to an entry which contains an OCCURS clause. 

6. fio more than one file-name from a multiple file reel can appear in the 
MERGE statement. 

7. File-names must not be repeated within the MERGE statement. 

8. MERGE statements may appear anywhere except in the declarative portion 
of the Procedure Division or in an input procedure or output procedure 
associated with a SORT or MERGE statement. 



General Rules: 

1. The MERGE statement merges all records contained on file-name-2, 
file-name-3, and f ile-narae-4 . The files referenced in the MERGE 
statement must, not be open when the MERGE statement is executed. 
These files are automatically opened and closed by the merge operation 
with all implicit functions performed, such as the execution of any 
associated USE procedures. The terminating function for all files is 
performed as if a CLOSE statement, without optional phrases, had been 
executed for each file. 

2. The data-names following the word KEY are listed from left to right in 
the MERGE statement in order of decreasing significance without regard 
to how they are divided into KEY phrases. In the format, data-name-1 
is the major key, data-name-2 is the next most significant key, etc. 
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MERGE 



a. When the ASCENDING phrase is specified, the merged sequence is 
from the lowest value of the contents of the data items 
identified by the KEY data-names to the highest value, according 
to the rules for comparison of operands in a relation condition. 

b. When the DESCENDING phrase is specified, the merged sequence is 
from the highest value of the contents of the data items 
identified by the KEY data-names to the lowest value, according 
to the rules for comparison of operands in a relation condition. 

The collating sequence that applies to the comparison of the 
nonnumeric key data items specified is determined in the following 
order of precedence: 

a. First, the collating sequence established by the COLLATING 
SEQUENCE phrase, if specified, in that MERGE statement. 

b. Second, the collating sequence established as the program 
collating sequence. 

The output procedure must consist of one or more sections that appear 
contiguously in a source program and do not form a part of any other 
procedure. In order to make merged records available for processing, 
the output procedure must include the execution of at least one RETURN 
statement. Control must not be passed to the output procedure except 
when a related SORT or MERGE statement is being executed. The output 
procedure may consist of any procedures needed to select, modify, or 
copy the records that are being returned, one at a time in merged 
order, from file-name-1. The restrictions on the procedural 
statements within the output procedure are: 

a. The output procedure must contain no transfers of control to 
points outside the output procedure; ALTER, GO TO, and PERFORM 
statements in the output procedure are not permitted to refer to 
procedure-names outside the output procedure. COBOL statements 
that will cause an implied transfer of control to declaratives 
are allowed. 

b. The output procedures must contain no SORT or MERGE statements. 

c. The remainder of the Procedure Division must contain no transfers 
of control to points inside the output procedures; ALTER, GO TO, 
and PERFORM statements in the remainder of the Procedure Division 
are not permitted to refer to procedure-names within the output 
procedures. 

If OUTPUT PROCEDURE is specified, control passes to it during 
execution of the MERGE statement. The compiler inserts a return 
mechanism at the end of the last section in the output procedure. 
When control passes the last statement in the output procedure, the 
return mechanism provides for termination of the merge, and then 
passes control to the next executable statement after the MERGE 
statement. Before entering the output procedure, the merge procedure 
reaches a point at which it can select the next record in merged order 
when requested. The RETURN statements in the output procedure are the 
requests for the next record. 
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6. Segmentation, as defined In Secti'^n Xt «=.». k- sd-i^p.-^ 'n n^na^ ™ 
containing the MERGE statement. Howev;; . -"thrfolf^iing rtstViltlTnl 

^' V^^^^ MERGE Statement appears In a section that is not in an 
iSori*"^*^ '«?'»«"'^' then any output procedure referenced by that 
MtHGE Statement must appear: 

(1) Totally within nonlndependent segments, or 

Vfe/ wnoiiy contained in a single Independent secment 

b. If a MERGE statement appears in an independent segment, then any 
output procedure referenced by that HERGE statement must be 
contained: 

(1) Totally within nonlndependent segments, or 

(2) Wholly within the same independent segment as that MERGE 
statement . 

7. If the GIVIMG phrase is specified, all the merged records in 
file-name-1 are automatically written on file-narae-5 as the implied 
output procedure for this MERGE statement. 

8. In the case of an equal compare (according to the rules for comparison 
of operands in a relation condition) on the contents of the data items 
Identified by all the KEY data-names between records from two or more 
input files (f ile-name-2, file-name-3, file-name-M, ...,), the records 
are written on flle-name-5 or returned to the output procedure 
depending on the phrase specified, in the order that the associated 
input files are specified in the MERGE statement. 

•-"--- -» — « .us> B^ wKci abxuri ai c preaic(,aDie oniy wnen the 

records in the files referenced by file-name-2, file-name-3 are 

ordered as described in the ASCENDING or DESCENDING KEY phrase 
associated with the MERGE statement. 
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RELEASE Statement 

The RELEASE statement transfers records to the initial phase of a sort 
operation. 



General Format: 

RELEASE record-name [ FROM identifier J 

Syntax Rules: 

1. A RELEASE statement may only be used within the range of an input 
procedure associated with a SORT statement for a file whose sof^'^^JIf? 
file description entry contains record-name. Refer to the sour 
statement. 

2. Record-name must be the name of a logical record in the associated 
sort-merge file description entry and may be qualified. 

3. Record-name and identifier must not refer to the same storage area. 



General Rules: 

1 The execution of a RELEASE statement causes the record named by 
■ record-name to be released to the initial phase of a sort operation. 

2. If the FROM phrase is used, the contents of the identifier data area 
are moved to record-name; then the contents of record-name are 
rolPased to the sort file. Moving takes place according to the rules 
s^ectfiedfo? the MOVE statement' without the CORRESPONDING phrase. 
The information in the record area is no longer available, but the 
in?orn.at?orin the data area associated with identifier is available. 

7. After the execution of the RELEASE statement, the logical record is no 

longer a vaiiaMe in the record area unless the associated sort-merge 

fufL named in a SAME RECORD AREA «=;-"• J:!%.:f?;^er:red 
also available to the program as a record of other ^^^"^^^^f JJ?^'^ ^ 
the same SAME RECORD AREA clause as the associated sort-merge file, as 
wen aSto the file associated with record-name. When control passes 
from the input procedure, the file consists of all those records that 
we?e placeS in it by the execution of RELEASE statements. 
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RETURN Statement 

The RETURN statement is used to obtain either the sorted records from the 
final phase of a sort operation or merged records during a merge operation. 



General Format: 

RETURN file-name RECORD i" INTO identifier J ; AT END imperative-statement 

Syntax Rules: 

1. File-name must be described by a sort-merge file description entry in 
the Data Division. 

2. A RETURN statement may only be used within the range of an output 
procedure associated with a SORT or MERGE statement for file-name. 

3. The INTO phrase must not be used when the input file contains logical 
records of various sizes as indicated by their record descriptions. 
The storage area associated with identifier and the record area 
associated with file-name must not be the same storage area. 

General Rules: 

1. When the logical records of a file are described with more than one 
record description, these records automatically share the same storage 
area; this is equivalent to an implicit redefinition of the area. The 
contents of any data items that lie beyond the range of the current 
data record are undefined at the completion of the execution of the 
RETURN statement. 

2. The execution of the RETURN statement causes the next record, in the 
order specified by the keys listed In the SORT or MERGE statement, to 
be made available for processing in the record areas associated with 
the sort or merge file. 

3. If the INTO phrase Is specified, the current record is moved from the 
input area to the area specified by identifier according to the rules 
for the MOVE statement without the CORRESPONDING phrase. The implied 
move does not occur if an AT END condition exists. Any subscripting 
or indexing associated with identifier is evaluated after the record 
has been returned and immediately before it is moved to the data item. 

4. When the INTO phrase is used, the data is available in both the input 
record area and in the data area associated with identifier. 

5. If no next logical record exists for the file when a RETURN statement 
is executed, the AT END condition occurs. The contents of the record 
areas associated with the file when the AT END condition occurs are 
undefined. After the execution of the Imperative statement in the AT 
END phrase, no RETURN statem<-;..t may be executed as part of the current 
output procedure. 
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SORT Statement 

The SORT statement creates a sort file by executing input procedures or by 
transferring records from another file; sorts the records in the sort file on a 
set of specified keys; and, in the final phase of the sort operation, makes 
available each record from the sort file, in sorted order, to some output 
procedures or to an output file. 



General Format: 



SORT file-name-1 ON 



{ ASCENDING "1 ^ -^ 

> KEY data-name-1 I , data-name-2 J ... 
DESCENDING J 

[f ASCENDING "1 •- n 1 

ON < { KEY data-name-3 I » data-name-M J ... I .. 

[ DESCENDING J *" J 



^ COLLATING SEQUENCE IS alphabet-name J 



r f THROUGH 1 
I \ THRU J 
file-narae-2 f, file-name-3 J ••• 

r f THROUGH 1 

-name-3 I \ ( 

L ^. THRU J 



INPUT PROCEDURE IS section-name-l 



USING 



OUTPUT PROCEDURE IS section- 



GIVING file-name-4 



section-name-2 



section-name-*! 



] 



Syntax Rules 
1. 



File-name-1 must be described in a sort-merge file description entry 
in the Data Division. 

2. Section-name-1 represents the name of an input procedure. 
Section-name-3 represents the name of an output procedure. 
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3. Flle-name-2, flle-name-3, and file-name-t must be described in a file 
description entry, not in a sort-merge file description entry, in the 
Data Division. The actual size of the logical recordCs) described for 
file-name-2, file-name-3, and file-name-4 must be equal to the actual 
size of the logical record(s) described for file-name-1. If the data 
descriptions of the elementary items that make up these records are 
not identical, it is the responsibility of the user to describe the 
corresponding records in such a manner to cause equal amounts of 
character positions to be allocated for the corresponding records. 

H. Data-name-1, data-name-2, data-name-3, and data-name-4 are KEY 
data-names and are subject to the following rules: 

a. The data items identified by KEY data-names must be described in 
records associated with file-name-1. 

b. KEY data-names may be qualified. 

c. If file-name-1 has more than one record description, then the 
data items Identified by KEY data-names need be described in only 
one of the record descriptions. 

d. None of the data items identified by KEY data-names can be 
described by an entry that either contains an OCCURS clause or is 
subordinate to an entry that contains an OCCURS clause. 

5. The words THRU and THROUGH are equivalent. 

6. SORT statements may appear anywhere except in the declarative portion 
of the Procedure Division or in an input or output procedure 
associated with a SORT or MERGE statement. 



iiiUxi^xpx6 i X xc reex can appear 



SORT statement. 



General Rules: 



1. The data-names following the word KEY are listed from left to right in 
the SORT statement in order of decreasing significance without regard 
to how they are divided into KEY phrases. In the format, data-name-1 
is the major key, data-name-2 is the next most significant key, etc. 

a. When the ASCENDING phrase is specified, the sorted sequence is 
from the lowest value of the contents of the data items 
■ identified by the KEY data-names to the highest value, according 
to the rules for comparison of operands In a relation condition. 
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b. When the DESCENDING phrase Is specified, the sorted sequence is 
from the highest value of the contents of the data items 
identified by the KEY data-names to the lowest value, according 
to the rules for comparison of operands in a relation condition. 

2. The collating sequence that applies to- the comparison of the 
nonnumeric key data items specified is determined in the following 
order of precedence: 

a. First, the collating sequence established by the COLLATING 
SEQUENCE phrase, if specified, in the SORT statement. 

b. Second, the collating sequence established as the program 
collating sequence. 

3. The input procedure must consist of one or more sections that appear 
contiguously in a source program and do not form a part of any output 
procedure. In order to transfer records to the file referenced by 
file-name-1, the input procedure must include the execution of at 
least one RELEASE statement. Control must not be passed to the input 
procedure except when a related SORT statement is being executed. The 
input procedure can include any procedures needed to select, create, 
or modify records. The restrictions on the procedural statements 
within the input procedure are as follows: 

a. The input procedure must contain no SORT or MERGE statements. 

b. The input procedure must contain no explicit transfers of control 
to points outside the input procedure; ALTER, GO TO, and PERFORM 
statements in the input procedure are not permitted to refer to 
procedure-names outside the input procedure. COBOL statements 
are allowed that will cause an implied transfer of control to 
declaratives. 

c. The remainder of the Procedure Division must contain no transfers 
of control to points inside the input procedure; ALTER, GO TO, 
and PERFORM statements in the remainder of the Procedure Division 
must not refer to procedure-names within the input procedure. 

1. If INPUT PROCEDURE is specified, control is passed to the input 
procedure before file-name-1 is sequenced by the SORT statement. The 
compiler Inserts a return mechanism at the end of the last section in 
the input procedure and when control passes the last statement in the 
input procedure, the records that have been released to file-name-1 
are sorted. 

5. The output procedure must consist of one or more sections that appear 
contiguously in a source program and do not form part of any input 
procedure. In order to make sorted records available for processing, 
the output procedure must Include th« execution of at least one RETURN 
statement. Control must not be passed to the output procedure except 
when a related SORT statement is being executed. The output procedure 
may consist of any procedures needed to select, modify, or copy the 
records that are being returned, one at a time in sorted order, from 
the sort file. The restrictions on the procedural statements within 
the output procedure are as follows: 

a. The output procedure must contain no SORT or MERGE statements. 
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PERFORM state.ien?s in SSe SStSut*^ nr^^^S***"""*' *^^^'*' °° ^0' ^"^ 
refer to proeedure-nanes oSSsiSe th^o.^i"'*/'"^ "°^ permitted to 
statements are allowed that u??i "^""^ procedure. COBOL 

control to declaJatHla. °^"" " ^"P"«*' transfer of 

and PERFORM 3tKent3"?Se?ema?nd«r or^h'^'r*' ^^^''' ^° ^0' 
prJce-dSrS!^"^^^^^ ^° -^^ to ?--^ure°!nii:3^:;??^?r?.r:i?jrt 

J[le°n"L"!l L^°"L":n^ 3e5u^n-r^^r?^e sSSf-Jatr-t" t\° ^^ ^^^ 

sorted order when rSouMt^S Th» pr^nSw "^*°'^ ^^'^^ "«*^ '■«<=«"-d in 
procedure are tSe're^^^s^'Jo; thrn%xt"ec;rd!'''*'"^"'^ ^" ^'^ °"^P"^ 

Segmentation, as defined in Section XI can be annn^^n f^ 
containing the SORT ,t.t,„ent. Ho.elU ."IL^'coHlllr, 'rt^tViltllT, 

a. If a SORT statement appears in a a»pfi<in ma* 4- ». ^ 

(t) Totally within nonindi>D<>nHAnt- ao»..^«.. 

(2) Wholly contained in a single independent segment. 

b. If a SORT statement appears in an independent seKment thpn anu 
input procedures or output procedures^ rsfereScfS Sy'tSat sSSt 
statement must be contained: icrentea oy mat, i,ORT 

(1) Totally within nonindependent segments, or 

^^^ statiJent!^^^" ^^^ ^^"® independent segment as that SORT 

ffirLmf^?^.?^''^?* ^l specified, all the records in file-narae-2 and 
CiJr^f r^ r .^"-^"^^^^'^^^^ automatically to file-name-1. When the 
SORT statement is executed, file-name-2 and file-name-3 must not be 
2t1: '^''fi^SP statement automatically initiates the processing of 
of nfl .im the logical records for, and terminates the procefsi^g 
of file-name-2 and file-name-3. These implicit functions are 
performed so that any associated USE procedures are executed ?he 
terminating function for all files is performed as !? a CLo5f 
?hf ^OR^ ;.^"^°\* optional phrases, had been executed for each file. 
The SORT statement also automatically performs the implicit function^ 

ffle n^i^S in^., 'r??'"'^" ^T *^« ^^^* «•*" °^ file-name-2 and 
fli 7nf??:? ^H ^^^ iHt ^'■^ ^°'" file-name-1 and releasing records to 
the initial phase of the sort operation. 
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If the GIVING phrase is specified, all the sorted "Records in 
file-name-l are automatically written on file-name-« as the implied 
output procedure for this SORT statement. When the SORT statement is 
executed, file-name-4 must not be open. The SORT statement 
automatically initiates the processing of, releases the loRical 
records to, and terminates the processing of file-name-4. These 
Impricit fS^ctions are performed so that any associated USE Procedures 
are executed. The terminating function is performed as if a CLOSE 
statement, without optional phrases, had been executed for the file. 
The SORT Statement also automatically performs the implicit functions 
of the re"" of the sorted records from the final phase of the sort 
operation and moving the records from the file area for fUe-name-l to 
the file area for f lle-name-M. The records written onto flle-name-4 
a?e of a fixed size, equal to the size of the largest record described 
in flle-name-1. 
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SECTION XI 
SEGMENTATION 



DESCRIPTION OF SEGMEMTATIOM 

ANSI COBOL-71 describes a segmentation facility that contains physical and 
logical aspects. The physical aspects are memory management by an overlay 
technique. Overlays are not meaningful in the Multics virtual memory system. 
Thus Multics COBOL does not support the physical aspects of segmentation. This 
has no effect on the logic of the object program. The logical aspects of 
segmentation affect statements such as ALTER, PERFORM, and SORT. The logical 
aspects of segmentation are supported by Multics COBOL and are described in the 
remainder of this section. 

Unless otherwise indicated, the term segment is used in the COBOL sense. 
The entire Procedure Division is one Multics segment. 



Program Segments 

The Procedure Division for a source program may be written as a group of 
sections. Each section belongs to either the fixed portion of the object 
program or to one of the independent segments of the object program. 
Segmentation in no way affects the need for qualification of procedure-names to 
ensure uniqueness. 



Fiited Portion 

The fixed portion of the program is always in its last used state when 
called for by the program. 
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Indepen<ient SeKnenta 

An independent segment Is in its initial state whenever control is 
transferred (either explicitly or implicitly) to that segment for the first time 
during the execution of a program. On subsequent transfers of control to the 
segment, an independent segment is also in its initial state when: 

1. Control is transferred to that segment as a result of the implicit 
transfer of control between consecutive statements from a segment with 
a different segment-number. 

2. Control is transferred to that segment as the result of the implicit 
transfer of control between a SORT statement, in a segment with a 
different segment-number, and an associated input or output procedure 
in that independent segment. 

3. Control is transferred explicitly to that segment from a segment with 
a different segment-number (with the EXIT PROGRAM exception noted 
below) . 

On subsequent transfers of control to the segment, an independent segment 
is in its last used state when: 

1. Control is transferred implicitly to that segment from a segment with 
a different segment-number (except as noted in paragraphs 1 and 2 
above) . 

2. Control is transferred explicitly to that segment as the result of the 
execution of an EXIT PROGRAM statement. 

Refer to "Transfers of Control" in Section II for additional information. 



Segmenta tion Control 

The logical sequence of the program is the same as the physical sequence 
except for specific transfers of control. Control may be transferred within a 
source program to any paragraph in a section; that is, it is not mandatory to 
transfer control to the beginning of a section. 
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STRUCTURE OF PROGRAM SEGMENTS 



SegBent-MuBhera 



Section classification is accomplished by means of a system of 
segment-numbers. The segment-number is included in the section header. 



General Format: 

section-name SECT^QM £ segment-number ] . 

Syntax Rules: 

1 . The segment-number must be an integer ranging in value from through 
99. 

2. If the segment-number is omitted from the section header, the 
segment-number is assumed to be zero. 

3. Sections in the declarative portion must contain segment-numbers less 
than 50. 

General Rules: 

1 . All sections having the sane segment-number constitute a program 
segment. Sections having the same segment-numbers are not required to 
be physically contiguous in the source program. 

2. Segments with segment-number through 49 belong to the fixed portion 
of the object program. 

3. Segments with segment-number 50 through 99 are Independent segments. 
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SEGMENT-LIMIT Clause 




IS segment-number J 



Syntax Rules: 

1. Segment-number must be an integer ranging in value from 1 through 49. 

General Rules: 

1. The SEGMENT-LIMIT clause is for documentation purposes only. 
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RESTRICTIONS ON PROGRAM FLOW 

When the segmentation feature is used, the following restrictions are 
placed on the ALTER, PERFORM, MERGE, and SORT statements. | 

ALTER Statement in Segmented Programs 

A GO TO statement in a section whose segment-number is greater than or 
equal to 50 must not be referred to by an ALTER statement in a section with a 
different segment-number. 

All other uses of the ALTER statement are valid. 



PERFORM Statement in Segm e nted Program s 

A PERFORM statement that appears in a section that is not in an independent 
segment can have within its range, in addition to any declarative sections whose 
execution is caused within that range, only one of the following: 

a. Sections and/or paragraphs wholly contained in one or more 
nonindependent segments. 

b. Sections and/or paragraphs wholly contained in a single independent 
segment . 

A PERFORM statement that appears in an independent segment can have within 
its range, in addition to any declarative sections whose execution is caused 
within that range, only one of the following: 

a. Sections and/or paragraphs wholly contained in one or more 
nonindependent segments. 

b. Sections and/or paragraphs wholly contained in the same independent 
segment as that PERFORM statement. 
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SORT Statement in Segmented Prggrams 

If a SORT statement appears in a section that is not in an independent 
segment, then any input procedures or output procedures referenced by that SORT 
statement must appear: 

a. Totally within nonindependent segments, or 

b. Wholly contained in a single independent segment. 



If a SORT statement appears in an independent segment, then any input 
sdures 
contained: 



procedures or output procedures' referenced by that SORT statement must he 



a. Totally within nonindependent segments, or 

b. Wholly within the same independent segment as that SORT statement. 
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SECTION XII 
LIBRARY FACILITY 



The library feature provides the capability for specifying text that is to 
be copied from a library. 

^h» "^R^PPiirr"^ source text manipulation facilities are the COPY statement and 
the REPLACE statement. Each of these facilities can function either 
independently of the other or in conjunction with the other to provide an 
n^™n?f^r* capability to insert and replace source program text as part of the 
compilation of the source program. 

COBOL libraries contain texts which are available to the compiler at 

compile time. The effect of the interpretation of the COPY statement is to 
generate, from a library text, text which is treated by the compiler as part of 
the source program. COBOL library text is placed in a COBOL library as a 
function independent of the COBOL source program. More than one library may be 
available when the program is compiled. 

Similarly COBOL source programs can be written in a programmer-defined 
notation which, at compile time, can he <»YnanHoH i„i-^ =„.,4.a-,n-_i i .. ., ,i. 

iT^ftrt' =\^""V .^"d statement^. The effect of th'e" i^nteVretatVon "o'f ' the 
SEPLACE statement is to substitute new text for text appearing in the source 
program and have the substituted text treated by the compiler as part of the 
source program. t- -^ 
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COPY 



COPY STATEMENT 



The COPY statement is used in the COBOL source program- to incorporate text 
from a library into the source program. 



General Format: 



COPY text 



-name I \ f 

L L IN J 



library-name 



] 



REPLACING 



I I sspseudo-text-1== 

tj identifier-1 
, \ literal-1 
I word-1 



' BY 



=sp3eudo-text-2: 
identifier-2 
literal-2 
word-2 



Syntax Rules: 



4. 
5. 



If two source texts have the same text-name then they must be placed 
in different libraries and text-name must be qualified by 
library-name. For information on usage, refer to the 
Multies COBOL Users' Guide , Order No. AS43. 

The COPY statement must be preceded by a space and terminated by the 
separator period. 

Pseudo-text-l must contain one or more text words. It must not be 
null, nor may it consist solely of the character spaoe(s), nor may it 
consist solely of comment lines. 

Pseudo-text-2 may contain zero, one, or more text-words. 

Character-strings within pseudo-text-1 and p3eudo-text-2 may be 
continued. However, both characters of a pseudo-text delimiter must 
be on the same line. 



6. Word-1 or word-2 may be any single COBOL word. 

7. A COPY statement can occur in the source program anywhere a 
character-string or a separator can occur except that a COPY statement 
must not occur within a COPY statement. 
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COPY COPY 



General Rules: 

1 . The compilation of a source program containing COPY statements is 
logically equivalent to processing all COPY statements prior to the 
processing of the resulting source program. 

2. The effect of processing a COPY statement is that the library text 
associated with text-name is copied into the source program, logically 
replacing the entire COPY statement, beginning with the reserved word 
COPY and ending with the punctuation character period, inclusive. 

If additional lines are introduced into the source program as a result 
of the processing of COPY statements, the Indicator Area of the 
introduced line contains the same character as the line on which the 
text being replaced begins, unless that line contains a hyphen, in 
which case the introduced line contains a space. 

3. If the REPLACING phrase is not specified, the library text is copied 
unchanged. 

If the REPLACING phrase is specified, the library text is copied and 
each properly matched occurrence of pseudo-text-1 , identif ier-1 , 
word-1 , and literal-1 in the library text is replaced by the 
corresponding pseudo-text-2 , identif ier-2 , word-2, or literal-2. 

4. For purposes of matching, identifier-1 , word-1, and literal-1 are 
treated as pseudo-text containing only identifier-1, word-1, or 
literal-1 , respectively. 

5. The comparison operation to determine text replacement occurs in the 
following manner: 

leftmost library text-word is copied into the source program. 
Starting with the leftmost library text-word and the first 
pseudo-text-1 , identifier-1 , word-1 , or literal-1 that was 
specified in the REPLACING phrase, the entire REPLACING phrase 
operand that precedes the reserved word BY is compared to an 
equivalent number of contiguous library text-words. 

b. Pseudo-text-1, identifier-1, word-1, or literal-1 match the 
library text if, and only if, the ordered sequence of text-words 
that forms pseudo-text-1, identifier-1, word-1, or literal-1 is 
equal, character for character, to the ordered sequence of 
library text-words. For purposes of matching, each occurrence of 
a separator comma or semicolon in pseudo-text-1 or in the library 
text is considered to be a single space except when pseudo-text-1 
consists solely of either a separator comma or semicolon, in 

wiixCn Caoc JL u yai if x^J xyctu^o xn t/li^ iiiauwii cao a u^Au— nOi u. l.ov'Li 

sequence of one or more space separators is considered to be a 
single space. 

c. If no match occurs, the comparison is repeated with each next 
successive pseudo-text-1, identifier-1, word-1, or literal-1, if 
any, in the REPLACING phrase until either a match is found or 
there is no next successive REPLACING operand. 

d. When all the REPLACING phrase operands have been compared and no 
match has occurred, the leftmost library text-word is copied into 
the source program. The next successive library text-word is 
then considered as the leftmost library text-word, and the 
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comparison cycle starts again with the first pseudo-text- 1 , 
identifier-1 , word-1 , or literal-1 specified in the REPLACING 
phrase. 

e. Whenever a match occurs between pseudo-text-1 , identifier-1 , 
word-1 , or literal-1 and the library text, the corresponding 
pseudo-text-2 , identif ier-2 , word-2, or literal-2 is placed into 
the source program. The library text-word immediately following 
the rightmost text-word that participated in the match is then 
considered as the leftmost library text-word. The comparison 
cycle starts again with the first pseudo-text-1, identifier-1, 
word-1 , or literal-1 specified in the REPLACING pnrase. 

f. The comparison operation continues until the rightmost text-word 
in the library text has either participated in a match or been 
considered as a leftmost library text-word and participated in a 
complete comparison cycle. 

6. Comment lines or blank lines occurring in the library text and in 
pseudo-text-1 are ignored for purposes of matching; and the sequence 
of text-words in the library text, if any, and in pseudo-text-1 is 
determined by the rules for Reference Format. Comment lines or blank 
lines appearing in pseudo-text-2 are copied into the resultant program 
unchanged whenever pseudo-text-2 is placed into the source program as 
a result of text replacement. Comment lines or blank lines appearing 
in library text are copied into the resultant source program unchanged 
with the following exception: a comment line or blank line in library 
text is not copied if that comment line or blank line appears within 
the sequence of text-words that match pseudo-text-1. 

7. Debugging lines are permitted within library text and pseudo-text-2. 
Debugging lines are not permitted within pseudo-text-1; text-words 
within a debugging line participate in the matching rules as if the 
'D' did not appear in the indicator area. If a COPY statement is 
specified on a debugging line, then the text that is the result of the 
processing of the COPY statement will appear as though it were 
specified on debugging lines with the following exception: comment 
lines in library text will appear as comment lines in the resultant 
source program. 

8. The text produced as a result of the complete processing of a COPY 
statement must not contain a COPY statement. 

9. The syntactic correctness of the library text cannot be independently 
determined. The syntactic correctness of the entire COBOL source 
program cannot be determined until all COPY statements have been 
completely processed. 

10. Library text must conform to the rules for the COBOL reference format 
in Section III. 

11. Each word copied from the library, but not replaced, is copied into 
the same area of the resultant program as copied in the library. Each 
word in pseudo-text-2 that is to be placed in the resultant program is 
placed in the same area of the resultant program as in pseudo-text-2. 

12. For purposes of compilation, text-words after replacement are placed 
in the source program according to the rules for reference format. 
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13. The text-name refers to a Hultios segment that has the name of the 
form: 

text-name.incl.oobol 

If the text-name in the COPY statement is not qualified by a 
library-name then the library text is located by using the Multics 
search facility. If the text-name in the COPY statement is qualified 
by a library-name then library-name specifies a Multics directory 
which contains the segment: 

text_name . inol . cobol 

(For further details, refer to the Multics COBOL Users' Guide , Order 
No. AS43 and to the MPM Commands and Active Functions , Order No. AG92 
for a description of the Multics search facility. ) | 
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REPLACE REPLACE 

REPLACE STATEMENT 

The REPLACE statement la used to replace source program text. 

General Format: 

Format 1 : 

REPLACE {| = = pseucio-text-1 = = BY s=pseudo-text-2==y ... 

Format 2: 

REPLACE OFF 

Syntax Rules: 

1 . A REPLACE statement may occur anywhere in the source program where a 

character-string may occur. It must be preceded by a separator period 

except when it is the first statement in a separately compiled 
program. 

2. A REPLACE statement must be terminated by a separator period. 

3. Pseudo-text-l must contain one or more text-words. 

4. Pseudo-text-2 may contain zero, one, or more text-words. 

5. Character-strings within pseudo-text-l and p3eudo-text-2 may be 
continued. 



General Rules: 

1 . The Format 1 REPLACE statement specifies the text of the source 
program to be replaced by the corresponding text. Each matched 
occurrence of pseudo-text-l in the source program is replaced by the 
corresponding pseudo-text-2. 

2. The Format 2 REPLACE statement specifies that any text replacement 
currently in effect is discontinued. 

3. A given occurrence of the REPLACE statement is in effect from the 
point at which it is specified until the next occurrence of tne 
statement or the end of the separately compiled program respectively. 

4. Any REPLACE statements contained in a source program are processed 
after the processing of any COPY statements contained in a source 
program. 
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5. The text produced as a result of the processing of a REPLACE statenierst 
must not contain a REPLACE statement or a COPY statement. 

6. The oomparison operation to determine text replacement occurs in the 
following manner: 

a. Starting with the leftmost source program text-word and the first 
pseudo-text-1 , pseudo-text-1 is compared to an equivalent number 
of contiguous source program text-words. 

b. Pseudo-text-1 matches the source program text if, and only if, 
the ordered sequence of text-words that forms pseudo-text-l is 
equal, character for character, to the ordered sequence of source 
program text-words. For purposes of matching each occurrence of 
a separator comma or semicolon in pseudo-text-1 or in the source 
program text is considered to be a single space except when 
pseudo-text-1 consists solely of either a separator comma or 
semicolon, in which case it participates in the match as a 
text-word. Each sequence of one or more space separators is 
considered to be a single space. 

0. If no match occurs, the comparison is repeated with each next 
successive occurrence of pseudo-text-1 , until either a match is 
found or there is no next successive occurrence of pseudo-text-1. 

d. When all occurrences of pseudo-text-1 have been compared and no 
match has occurred, the next successive source program text-word 
is then considered as the leftmost source program text-word, and 
the comparison cycle starts again with the first occurrence of 
pseudo-text-1 . 

1. Whenever a match occurs between pseudo-text-1 and the source 
program text, the corresponding pseudo-text-2 replaces the 
matched text in the source program. The source program text-word 
immediately following the rightmost text-word that participated 
in the match is then considered as the leftmost source program 
text-word. The comparison cycle starts again with the first 
occurrence of pseudo-text-1. 

f. The comparison operation continues until the rightmost text-word 
in the source program text which is within the scope of the 
REPLACE statement has either participated in a match or been 
considered as a leftmost source program text-word and 
participated in a complete comparison cycle. 

7 . Comment lines or blank lines occurring in the source program text and 
in pseudo-text-1 are ignored for purposes of matching, and the 
sequence of text-words in the source program text and in pseudo-text-1 
is determined by the rules for Reference Format. Comment lines or 
blank lines in pseudo-text-2 are placed into the resultant program 
unchanged whenever pseudo-text-2 is placed into the source program as 
a result of text replacement. A comment line or blank line in source 
program text is not replaced if that comment line or blank line 
appears within the sequence of text-words that match pseudo-text-1 . 

8. D'ijbugging lines are permitted in pseudo-text-2; they are not permitted 
in pseudo-text-1. Text-words within a debugging line participate in 
the matching rules as if tne 'D' did not appear in the Indicator Area. 
If a REPLACE statement is specified on a debugging line, the text that 
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is the result of the processing of the REPLACE 
though it were specified on debugging lines. 



statement appears as 



9. Except for COPY and REPLACE statements, the syntactic correctness of 
the source program text cannot be determined until after all COPY and 
REPLACE statements have been completely processed. 

10. Text-words inserted into the source program as a result of processing 
a REPLACE statement are placed in the source program according to the 
rules for Reference Format. Each word in pseudo-text-2 inserted into 
the source program is placed in the same area of the source program as 
it appears in pseudo-text-2. 

11. If additional lines are introduced into the source program as a result 
of the processing of REPLACE statements, the Indicator Area of the 
introduced lines contains the same character as the line on which the 
text being replaced begins, unless that line contains a hyphen, in 
which case the introduced line contains a space. 
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Special Register DEBUG-ITEM 



The reserved word DEBUG-ITEM is the name of a special register generated 

?!^!?"-!^Ln,fp ^.11.°*'^*^'' .^^'^ ^^^"^ program. The names of the subordinate data 
xT^eui<> ill i;b.DOtr-xihM are also reserved words. 



Com pile-Time Switch 



nar-.J^L ""="^^^^"^°^*'° ^°°^ clause, written as part of the SOURCE-COMPUTER 
paragraph, serves as a compile-time switch governing the debugging statements 
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SECTION XIII 
DEBUG FACILITY 



DESCRIPTION OF THE DEBUG FACILITY 

The debugging facility described in this section is defined by the ANS 
COBOL Standard. Changes must be made to a source program if the facility is to 
be used. Multics also offers powerful symbolic debugging facilities (probe and 
debug) which can be applied tg a program without making source changes. These 
facilities are described in Section VI of the Multics COBOL User's Guide Order 
Number AS^3 and in the Multics Programmers Ranuap^^ommaifii~an'Tl[HRvTTiJHctions 
Order Number AG 92. ■ ' 

The debug facility assists in error detection by: 

1. Monitoring transfers of control to user-selected procedures during program 
execution. 

2. Monitoring values of user-selected data items during program execution. 

_ The user-supplied statements required to accomplish such monitoring are 

included m the source program and, can be compiled (or not) depending upon the 
presence or absence of the WITH DEBUGGING MODE clause in the source program. 
After tne user statements have been compiled into the program- they may b» 
executed (or ignored) at object program execution according to the setting ""of a 
run-time switch. The decisions concerning what to monitor and what information 
to display on the output device are explicitly at the discretion of the user. 
The main purpose of the COBOL debug feature is to provide convenient access to 
such information. 

The elements of the COBOL language that support the debug facility are: 

• The special register DEBUG-ITEM 

• A compile time switch; WITH DEUGGING MODE 

• An object time switch 

m The USE FOR DEBUGGING statement 

• Debugging lines 



7/81 13-1 



ASftF 



written in the program. When this clause is specified in a program, all 
debugging sections and all debugging lines are compiled as described in this 
section. When this clause is omitted, all debugging lines and all debugging 
sections are compiled as if they were comment lines. 



Object-Time Switch 

An object-time switch dynamically activates the debug coding inserted by 
the compiler. This switch cannot be addressed in the program; it is set by 
using the -debug option in the run_cobol command which executes the program. If 
the switch is "ON", all the effects of the debugging language written in the 
source program are permitted. If the switch is "OFF", all the effects described 
in the USE FOR DEBUGGING statement are inhibited. The recompilation of the 
source program is not required to provide or remove this facility. 

The object-time switch has no effect on the execution of the object program 
if the WITH DEBUGGING MODE clause is not specified in the source program during 
program compilation. 



USE FOR DEBUGGING Statement 

The USE FOR DEBUGGING statement identifies the user items that are to be 
monitored by the associated debugging section. 



Debugging Lines 

A debugging line is any line with a "D" in the indicator area (character 
position 7) of the line. Refer to "Debugging Lines" later in this section. 
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ENVIRONMENT DIVISION FOR DEBUGGING 



WITH DEBUGGING MODE Clause 



The WITH DEBUGGING MODE clause serves as a compile-time switch by 

indicating that all debugging sections and all debugging lines are to be 

compiled. If this clause is not specified, all debugging lines and sections are 

compiled as if they were comment lines. 



General Format: 

SOURCE-COMPUTER . HIS-SERIES-60 MULTICS 

WITH DEBUGGING MODE . 

General Rules: 

1. If the WITH DEBUGGING MODE clause is specified 
paragraph in the Configuration Section of a program, all USE FOR 
DEBUGGING statements and all debugging lines are compiled. 

2. If the WITH DEBUGGING MODE clause is not specified in the 
SOURCE-COMPUTER paragraph in the Configuration Section of a program, 
any USE FOR DEBUGGING statements and all associated debugging 
sections, and any debugging lines are compiled as if they were comment 

lines. 
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PROCEDURE DIVISION FOR DEBUGGING 



USE FOR DEBUGGING Statement 



The USE FOR DEBUGGING statement identifies the user items that are to be 
monitored by the associated debugging section. 



General Format: 

section-name SECTION f segment-number J 



USE FOR DEBUGGING ON ' 



Ccd-name-1 — 
ALL REFERENCES OF _j identifier-1 
file-name-1 
procedure-name-1 
ALL PROCEDURES 



Ccd-nane-2 
ALL REFERENCES OF 
file-name-2 
procedure-name-2 
L ALL PROCEDURES 



] 



identifier-2 



Syntax Rules: 



Debugging seotion(s) , if specified, must appear together immediately 
after the declarative section header. 

Except in the USE FOR DEBUGGING statement itself, there must be no 
reference to any nondeclarative procedure within the debugging 
section. 

Statements appearing outside of the set of debugging sections must not 
reference procedure-names defined within the set of debugging 
sections. 

Except for the USE FOR DEBUGGING statement itself, statements 
appearing within a given debugging section may reference 
procedure-names defined within a different USE procedure only with a 
PERFORM statement. 

Procedure-names defined within debugging sections must not appear 
within USE FOR DEBUGGING statements. 

Any given identifier, cd-name, file-name, or procedure-name may appear 
in only one USE FOR DEBUGGING statement and may appear only once in 
.that statement. 



7. The ALL PROCEDURES phrase can appear only once in a program. 
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8. When the ALL PROCEDURES phrase is specified, prooedure-name-l , 
procedure-name-2, .,., must not be specified in any USE FOR DEBUGGING 
statement. 

9. If the data description entry of the data item referenced by 
identifier-1 , identifier-2, ..., contains an OCCURS clause or is 
subordinate to a data description entry that contains an OCCURS 
clause, identifier-1, identifier-2, ..., must be specified without the 
subscripting or indexing normally required. 

10. References to the special register DEBUG-ITEM are restricted to 
references from within a debugging section. 



General Rules: 

1. In the following General Rules, all references to cd-name-1, 
identifier-1, f ile-name-1 , and procedure-name-1 apply equally to 
cd-narae-2, identifier-2, file-name-2, and procedure-narae-2, 
respectively. 

2. A reference to file-nanie-1 , identifier-1, procedure-name-1, or 
cd-name-1 as a qualifier does not constitute reference to that item 
for the debugging described in the General Rules below. For purposes 
of debugging, a reference to identifier-1 with or without its 
associated subscripting or reference modifiers constitutes an explicit 
reference to identifler-1 and causes the associated debugging section 
to be executed in accordance with General Rules 9 and 10. 

3. Where more than one sequence of qualifiers may be used to refersnoe a 
given data item or procedure-name, any form of explicit reference to 
such data item or procedure-name specified in the USE FOR DEBUGGING 
statement causes the execution of the debugging section. 

4. Automatic execution of a debugging section Is not caused by a 
statement appearing in a debugging section. 

5. When file-name-1 is specified in a USE FOR DEBUGGING statement, that 
debugging section is executed: 

a. After the execution of any OPEN or CLOSE statement that 
references file-name-1. 

b. After the execution of any READ statement (after any other 
specified USE proosdura) not resulting in the execution of an 
associated AT END or INVALID KEY imperative statement. 

c. After the execution of any DELETE or START statement that 
references file-name-1. 

6. When procedure-name-1 is specified in a USE FOR DEBUGGING statement, 
that debugging section is executed: 

a. Immediately before each execution of the named procedure. 

b. Immediately after the execution of an ALTER statement that 
references procedure-name-1. 
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7. The ALL PROCEDURES phrase causes the effects described in General Rule 
6 to occur for every procedure-name in the program, except those 
appearing within a debugging section. 

8. When the ALL REFERENCES OF identifier-1 phrase is specified, that 
debugging section is executed for every statement that explicitly 
references identifier-1 at each of the following times: 

a. In the case of a WRITE or REWRITE statement, immediately before 
the execution of that WRITE or REWRITE statement and after the 
execution of any implicit move resulting from the presence of the 
FROM phrase, 

b. In the case of a GO TO statement with a DEPENDING ON phrase, 
immediately before control is transferred and prior to the 
execution of any debugging section associated with the 
procedure-name to which control is to be transferred. 

0. In the case of a PERFORM statement in which a VARYING AFTER or 
UNTIL phrase references identifier-1, immediately after each 
initialization, modification, or evaluation of the contents of 
the data item referenced by identifier-1 . 

d. In the case of any other COBOL statement, immediately after 
execution of that statement. 

If identifier-1 is specified in a phrase that is not executed or 
evaluated, the associated debugging section is not executed. 

9. When identifier-1 is specified without the ALL REFERENCES OF phrase, 
that debugging section is executed at each of the following times: 

a. In the case of a WRITE or REWRITE statement that explicitly 
references identifier-1, immediately before the execution of that 
WRITE or REWRITE statement and after the execution of any 
implicit move resulting from the presence of the FROM phrase. 

b. In the case of a PERFORM statement in which a VARYING, AFTER, or 
UNTIL phrase references identifier-1, immediately after each 
initialization, modification, or evaluation of the contents of 
the data item referenced by Identif ier-1 . 

c. Immediately after the execution of any other COBOL statement that 
explicitly references and causes the contents of the data item 
referenced by identifier-1 to be changed. 

If identifier-1 is specified in a phrase that is not executed or 
evaluated, the associated debugging section is not executed. 

10. The associated debugging section is not executed for a specific 
operand more than once as a result of the execution of a single 
statement, regardless of the number of times that operand is 
explicitly specified. In the case of a PERFORM statement that causes 
iterative execution of a referenced procedure, the associated 
debugging section is executed once for each iteration. 

Within an imperative statement, each individual occurrence of an 
imperative verb identifies a separate statement for the purpose of 
debugging. 

n. When cd-name-1 is specified in a USE FOR DEBUGGING statement, that 
debugging section is executed: 
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USE FOR DEBUGGING USE FOR DEBUGGING 



DEBUG-ITEM. 


02 


DEBUG-LINE 


02 


FILLER 


02 


DEBUG-NAME 


02 


FILLER 


02 


DEBUG-SUB=1 


02 


FILLER 


02 


DEBUG-SUB-2 


02 


FILLER ' 


02 


DEBUG-SUB-3 



a. After the e'xecution of any ENABLE, DISABLE, and SEND statement 
that references cd-name-1 . 

b. After the execution of a RECEIVE statement referencing od-name-1 
that does not result in the execution of the NO DATA imperative 
statement. 

c. After the execution of an ACCEPT MESSAGE COUNT statement that 
references od-name-1. 

12. The special register DEBUG-ITEM is associated with each execution of a 
debugging section. DEBUG-ITEM provides information about the 
conditions that caused the execution of a debugging section. 
DEBUG-ITEM has the following implicit description: 

01 

PICTURE IS X(6). 

PICTURE IS X VALUE SPACE. 

PICTURE IS X(30). 

PICTURE IS X VALUE SPACE. ' 

PICTURE IS S9999 

SIGN IS LEADING SEPARATE CHARACTER. 

PICTURE IS X VALUE SPACE. 

PICTURE IS S9999 

SIGN IS LEADING SEPARATE CHARACTER. 

PICTURE IS X VALUE SPACE. 

PICTURE IS S9999 

SIGN is LEADING SEPARATE CHARACTER. 

02 FILLER PICTURE IS X VALUE SPACE. 

02 DEBUG-CONTENTS PICTURE IS X(n). 

13. Prior to each execution of a debugging section, the content of the 
data item referenced by DEBUG-ITEM is space-filled. The contents of 
data items subordinate to DEBUG-ITEM are then updated, according to 
the following General Rules, immediately before control is passed to 
that debugging section. The content of any data item not specified in 
the following General Rules remains spaces. 

Updating is accomplished in accordance with the rules for the MOVE 
statement, the sole exception being the move to DEBUG-CONTENTS when 
the move is treated exactly as if it was an alphanuraeric-to- 
alphanumeric elementary move with no conversion of data from one form 
of internal representation to another. 

14. The content of DEBUG-LINE is the Internal line number assigned to the 
source statement (as indicated on the source listing). 

15. DEBUG-NAME contains the first 30 characters of the name that caused 
the debugging section to be executed. 

All qualifiers of the name are separated in DEBUG-NAME by the word 
"IN" or "OF". Subscripts/indexes, if any, are not entered into 
DEBUG-NAME. 

16. If the reference to a data item that causes the debugging section to 
be executed is subscripted or indexed, the occurrence number of each 
level is entered in DEBUG-SUB-1, DEBUG-SUB-2, DEBUG-SUa-3, 
respectively, as necessary. 
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.11 



20, 



21 



17. DEBUG-CONTENTS is a data item that is large enough to contain the data 
required by the following General Rules. 

If the first execution of the first nondeclarative procedure in the 
program causes the debugging section to be executed, the followine 
conditions exist: 



a. DEBUG-LINE identifies the first statement of that procedure. 

b. DEBUG-NAME contains the name of that procedure. 

c. DEBUG-CONTENTS contains "START PROGRAM". 

19. If a reference to procedure-name-1 in an ALTER statement causes the 
debugging section to be executed, the following conditions exist: 

a. DEBUG-LINE identifies the ALTER statement that references 
procedure-name-1 . 

b. DEBUG-NAME contains procedure-name-1. 

c. DEBUG-CONTENTS contains the applicable procedure-name associated 
with the TO phrase of the ALTER statement. 

If the transfer of control associated with the execution of a GO TO 
statement causes the debugging section to be executed, the following 
conditions exist; 

a. DEBUG-LINE identifies the GO TO statement whose execution 
transfers control to procedure-name-1. 

b. DEBUG-NAME contains procedure-name-1. 

If a reference to prooedure-name-1 in the INPUT or OUTPUT phrase of a 
SORT or MERGE statement causes the debugging section to be executed, 
the following conditions exist: 

a. DEBUG-LINE identifies the SORT or MERGE statement that references 
procedure-name-1 . 

b. DEBUG-NAME contains procedure-name-1. 
0. DEBUG-CONTENTS contains: 

• If the reference to prooedure-name-1 is in the INPUT phrase 
of a SORT statement, "SORT INPUT". 

• If the reference to procedure-name-1 is in the OUTPUT phrase 
of a SORT statement, "SORT OUTPUT". 

• If the reference to procedure-name-1 is in the OUTPUT phrase 
of a MERGE statement, "MERGE OUTPUT". 
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22. If the transfer of control from the control mechanism associated with 
a PERFORM statement caused the debugging section associated with 
prooedure-name-l to be executed, the following conditions exist: 

a. DEBUG-LINE identifies the PERFORM statement that references 
procedure-name-1 . 

fa. DEBUG-NAME contains procedure-name-1. 

0. DEBUG-CONTENTS contains "PERFORM LOOP". 

23. If procedure-name-1 is a USE procedure that is to be executed, the 
following conditions exist: 

a. DEBUG-LINE identifies the statement that causes execution of the 
USE procedure. 

b. DEBUG-NAME contains procedure-name-1. 

c. DEBUG-CONTENTS contains "USE PROCEDURE". 

24. If an implicit transfer of control from the previous sequential 
paragraph to procedura-name-1 causes the debugging section to be 
executed, the following conditions exist: 

a. DEBUG-LINE identifies the previous statement. 

b. DEBUG-NAME contains procedure-name-1. 

c. DEBUG-CONTENTS contains "FALL THROUGH". 

25. If references to f ile-name-1 , od-name-1 cause the debugging section to 
be executed, then: 

a. DEBUG-LINE identifies the source statement that references 
file-name-1 , cd-name-1. 

b. DEBUG-NAME contains the name of file-name-1, cd-name-1. 
o. For READ, DEBUG-CONTENTS contains the entire record read. 

d. For all other references to file-name-1, DEBUG-CONTENTS contains 
spaces. 

e. For any reference to cd-name-1, DEBUG-CONTENTS contains the 
contents of the area associated with the od-name. 

26. If a reference to identifier-1 causes the debugging section to be 
executed, then; 

a. DEBUG-LINE identifies the source statement that references 
identifier-1 . 

b. DEBUG-NAME contains the name of identifier-1. 

c. DEBUG-CONTENTS contains the contents of the data item referenced 
by identifier-1 when control passes to the debugging section (see 
General Rules 6 and 7). 
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Debugging Lines 

A debugging line is any line with a "D" (or a "d") in the indicator area of 
the line. Any debugging line that consists solely of spaces from margin A to 
margin R is considered to be the same as a blank line. 

The contents of a debugging line must be such that a syntactically correct 
program is formed with (or without) the debugging lines being considered as 
comment lines. 

A debugging line is considered to have all the characteristics of a comment 
line if the WITH DEBUGGING MODE clause is not specified in the SOURCE-COMPUTER 
paragraph. 

Successive debugging lines are allowed. Continuation of debugging lines is 
permitted, except that each continuation line must contain a "D" in the 
indicator area, and character-strings may not be broken across two lines. 

A debugging line is only permitted in the program following the 
OBJECT-COMPUTER paragraph. 



9/79 13-10 AS44D 



SECTION XIV 



INTERPROGRAM COMMUNICATION 



PESCRIP TI QM QF INTERPROQRAH COMMUNICATION 

Interprogram communication is a facility through which a program can 
communicate with one or more programs. The communication is provided by the 
ability to transfer control from one program to another within a run-unit and 
the ability for both programs to have access to the same data items. Control 
can be transferred to one or more programs whose names are not known at program 
compilation time. 



PRQgRAM MQgULARin 

Complex data processing problems are frequently solved by using separately 
compiled but logically coordinated programs which, at program execution, form 
logical and physical subdivisions of a single run-unit. This method allows a 
large problem to be divided into smaller, more manageable segments that can be 
programmed and debugged independently. At program execution, control is 
transferred from program to program using the CALL and EXIT PROGRAM statements. 

In COBOL terminology, a program is either a source program or an object 
program, depending on the context. A source program is a syntactically correct 
set of COBOL statements, and an object program is the set of instructions, 
constants, and other machine-oriented data resulting from the operation of a 
compiler on a source program. A run-unit is the total machine language 
necessary to solve a data processing problem; It includes one or more object 
programs as defined above, and it may include machine language from source 
languages other than COBOL. 

When the statement of a problem is subdivided into more than one program, 
the constituent programs must be able to communicate with each other. This 
communication can take two forms; transfer of control and reference to common 
data. 



Transfer of Control (CALL) 

The CALL statement provides the means whereby control can be passed from 
one program to another within a run-unit. A program that is activated by a CALL 
statement can also contain CALL statements. However, the results are 
unpredictable where circularity of control is initiated; e.g., where program A 
calls program B, and then program B calls program A or another program that 
calls program A. 
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When control is passed to a called program, execution proneods in the 
noraal way from procedure statement to procedure statement beginning with thr- 
first nondeclarative statement. If control reaches a ST3P RON stat em-T. • , th'o 
signals the logical end of the run-jnit. If control reacher. ?m FXT^ PRmf<AM 
statement, this signals the logical •■^.nd of the called progtHm onlj, ;u;d rrrj, i 
then reverts to the point immediately following the TALL statemrnt i <-, ; i-.i 
calling program. Stated briefly, th • EXIT PROGRAM statement terminator, .',".,■ rhe 
program in which it occurs, and Ihe STOP RUN statement terminater- the tntirp 
run-unit. 

If the called program is not a COBOL program, the termination of t.ne 
run-unit or the return to the calling program must be programmed in accordance 
with the language rules of the called program. 



Interprogram Data Storage 

Progran interaction requires that both programs have access to the same 
data items. In the calling program, the common data items are described along 
with all other data items in the File Section, Working-Storage Section, or 
Linkage Section. At object program execution, memory is allocated for the 
entire Data Division. In the called program, common data items are de^v^-ribed in 
the Linkage Section; memory space is not allocated for this section at object 
program execution. 

Communication between the called program and the common data items stored 
in the calling program Is effected through USING phrases contained in both 
programs. The USING phrase In the calling program is contained in the CALL 
statement and the operands are a list of common data identifiers described in 
its Data Division. The USING phrase in the called program follows the Procedure 
Division header and the operands are a list of common data identifiers described 
in its Linkage Section. The identifiers specified by the USING phrase of the 
CALL statement indicate those data items available to a calling program that may 
be referred to in the called program. The sequence of appearance of the 
identifiers in the USING phrase of the CALL statement and the USING 'f>hrase in 
the Procedure Division header la significant. Corresponding Identifiers refer 
to a single set of data which is available to the calling program. The 
correspondence Is positional, and not by name. While the called program is 
being executed, every reference to an operand whose identifier appears In the 
called program's USING phrase Is treated as if It Is a reference to the 
corresponding operand In the USING phrase of the active CALL statement. 

After control leaves a called program, its state is maintained. Therefore, 
initialization of the program In case of repetitive calls is not necessary. 
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IMTERPBQGBAH COMHUMICATTO N P^Tfl DlViSToii - u h KAQE secttow 

The Linkage Section in a program is meaningful only if the object program 
is to function under the control of a CALL statement and the CALL statement in 
the calling program contains a USING phrase. 

The Linkage Section is used for describing data that is available through 
the calling program but is to be referred to in both the calling and the called 
programs. No space is allocated in the program for data items referenced by 
data-names in the Linkage Section of that program. Procedure Division 
references to these data items are resolved at object time by equating the 
reference in the called program to the location used in the calling program. In 
the case of index-names, no such correspondence is established. Index-names in 
the called and calling program always refer to separate indexes. 

Data items defined in the Linkage Section of the called program can be 
referenced within the Procedure Division of the called program only if they are 
specified as operands of the USING phrase of the Procedure Division header (see 
section I) or are subordinate to such operands, and the object program is under 
the control of a CALL statement that specifies a USING phrase. 

The structure of the Linkage Section is the same as that described for the 
working-Storage Section in the Nucleus, beginning with a section header, 
followed by data description entries for noncontiguous data items and/or record 
description entries. 

4ku^^^^I? Linkage Section record-name and noncontiguous item name must be unique 
within the called program, since it cannot be qualified. 

Of those items defined in the Linkage Section, only data-name-1, 
data-name-2, ..., in the USING phrase of the Procedure Division header, data 
items subordinate to these data-names, and condition-names or index-names 
associated with such data-names or subordinate data items can be referenced in 
one rroceaure Division. 



HancontlgUQUs Linkage StoraffA 

Items in the Linkage Section that bear no hierarchic relationship to one 
another need not be grouped into records and are classified and defined as 
noncontiguous elementary items. Each of these data items is defined in a 
separate data description entry that begins with the special level-number 77. 

The following data clauses are required in each data description entry: 

a. Level-number 77 

b. Data-name 

c. The PICTURE clause or the USAGE IS INDEX clause 

Other data description clauses are optional and can be used to complete the 
description of the item if necessary. 
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Linkage Rq^Qr.;|.:; 

„=i Data elements in the Linkage Section that bear a definite hierarchic 
relationship to one another must be grouped into records according to the rules 
ror formation of record descriptions. Any clause used in an input or output 
record description can be used in a Linkage Section. 



L inkage Initial Valueg 

The VALUE clause must not be specified in the Linkage Section except in 
condition-name entries (level 68). 
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PROCEDURE DIVISIOM FOR INTERPROGRAM COMMUHICATIOM 



Procedure Division Header 

The Procedure Division Is identified by and must begin with the following 

PROCEDURE DIVISIOM L "SING data-name-1 [ , data-naiBe-2 ] ... J . 

The USING phrase must be present only if the object program Is to function 
under control of a CALL statement and the CALL statement in the calling program 
contains a USING phrase. 

Each operand in the USING phrase of the Procedure Division header must be 
defined as a data item in ths Linkage Section of the program in which this 
header occurs, and it must have a 01 or 77 level-number. 

Within a called program, Linkage Section data Items are processed according 
to their data descriptions given in the called program. 

When the USING phrase is present, the object program operates as if 
data-name-1 of the Procedure Division header in the called program and 
uata-name-1 in the USING phrase of the CALL statement in the calling program 
refer to a single set of data that is equally available to both the called and 
calling programs. Their descriptions must define an equal number of character 
positions; however, they need not be the same name. In like manner, there is an 
equivalent relationship between data-name-2, ..., in the USING phrase of the 
called program and data-name-2, ..., in the USING phrase of the CALL statement 
in the calling program. A data-name must not appear more than once in the USING 
phrase in the Procedure Division header of the called program; however, a given 
data-name can appear more than once in the same USING phrase of a CALL 
statement. 

If the USING phrase is specified, the INITIAL clause must not be present in 
any communication description (CD) entry. 
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CALL Statement 

The CALL statement causes control to be transferred from one object program 
to another within the run-unit. 

General Format: 



CALL 



{identifier-1 "1 T f data-name- 1 "1 f, data-name-2 I "I 
literal-1 J [_ \ literal-2 J L, llteral-3 J J 
[i ON OVERFLOW imperative-statement] 



Syntax Rules: 



1. Literal-1 must be a nonnumeric literal. 

2. Identifier-1 oust be defined as an alphanumeric data item such that 
its value can be a program-name. 

3. The USING phrase is included in the CALL statement only if there is a 
USING phrase in the Procedure Division header of the called program; 
the number of operands in each USING phrase must be identical. 

4. Each of the operands in the USING phrase must be defined as a data 
item in the File Section, Working-Storage Section, Communication 
Section, Constant Section, or Linkage Section, and each must have a 
level-number of 01 or 77. Data-name-1 , data-name-2, ..., can be 
qualified when they reference data items defined in the File Section. 

5. There may be no more than 127 operands. 

6. All references to literal-2 apply equally to literal-3. 



General Rules: 



1. The program whose name is specified by the value of literal-1 or 
identifier-1 is the called program; the program in which the CALL 
statement appears is the calling program. 

2. The execution of a CALL statement causes control to pass to the called 
program. 

3. A called program is in its initial state the first time it is called 
within a run-unit. 

On all other entries into the called program, the state of the program 
remains unchanged from its state when last exited. This Includes all 
data fields, the status and positioning of all files, and all 
alterable switch settings. 
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CALL 



CALL 



4. The ON OVERFLOW phrase is used for program documentation and has no 
effect on the object program, since the condition can not occur on 
Hultics. 

5. Called programs can contain CALL statements. However, a called 
program must not contain a CALL statement that directly or indirectly 
calls the calling program. 

6. The data-names and literals specified by the USING phrase of the CALL 
statement indicate those data items available to a calling program 
that can be referred to in the called program. The order of 
appearance of the data-names in the USING phrase of the CALL statement 
and the USING phrase in the Procedure Division header is significant. 
Corresponding data-names refer to a single set of data available to 
both the called and calling programs. The correspondence is 
positional, not by name. In the ease of index-names, no such 
correspondence is established. Index-names in the called and calling 
program always refer to separate indexes. 

If literal-2 is nonnumeric, the corresponding data-name in the called 
program must be alphanumeric, equal in length to the number of 
n^frp^^®''^ ^" literal-2, and explicitly or implicitly have DISPLAY 
USAGE. If literal-2 is an unsigned numeric, the corresponding 
data-name in the called program,, must be an unsigned numeric, equal 
ijo*r^®"^^** *^° ^^^ lumber of digits in literal-2, and have DISPLAY 
USAGE. If literal-2 is a signed numeric, the corresponding data-name 
must be numeric (with a separate leading sign), equal in length to the 
number of digits in literal-2, and have DISPLAY USAGE, (NOTE: This 
is the data-type produced by PL/I for fixed decimal data.) 

If literals are used, the user must ensure that the calling program 
does not attempt to modify the corresponding data item. All data is 
passed by reference. 

7. The CALL statement can appear anywhere within a segmented program 
The user must provide all controls necessary to ensure that the proper 
logic flow is maintained. Therefore, when a CALL statement appears in 
a section with a segment-number greater than or equal to 50, that 
segment is in its last used state when the EXIT PROGRAM statement 
returns control to the calling program. 

8. A called program can contain a FILE SECTION and its own local files. 
When a called program is exited via an EXIT PROGRAM statement, any 
files opened within that program remain open unless specifically 
closed within that program. 

9. Files declared within a called program can be opened or closed by the 
calling program provided they are declared in the calling program with 
the EXTERNAL attribute and have the same internal-file-name (ifn) in 
both the calling and called programs. 

10. If the called program cannot be found, an object time error results. 
(Refer to "Non-Input/Output Errors" in Section VII.) 

n. For additional infornatlon on CALL, refer to "Interprogram 
Communication" in the MuUica SQSQL Users* fiuldfi. 
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CANCEL CANCEL 



Q&MEL Statement 

The CANCEL statement releases the memory areas occupied by the referenced 
program. 



General Format: 



£AK{I£L 



{Identifier- ll f, identifier-2 "1 
literal-1 J U literal-2 J 



Syntax Rules: 



1. Literal-1, literal-2, ..., must be nonnumeric literals. 

2. Identifier-1, identifier-2, ..., must each be defined as an 
alphanumeric data item such that its value can be a program name. 



General Rules: 



1. After execution of a CANCEL statement, the program referred to therein 
ceases to have any logical relationship to the run-unit in which the 
CANCEL statement appears. A subsequently executed CALL statement 
naming the same program will result in that program being initiated in 
its initial state. Memory areas associated with the named programs 
are released and are made available for disposition by the operating 
system. 

2. A program named in the CANCEL statement must not refer to any program 
that has been called and has not yet executed an EXIT PROGRAM 
statement. 

3. A logical relationship to a cancelled subprogram is established only 
by execution of a subsequent CALL statement. 

4. A called program is cancelled either by being referred to as the 
operand of a CANCEL statement or by the termination of the run unit of 
which the program is a member. 

5. No action is taken when a CANCEL statement is executed naming a 
program that has not been called in this run-unit or has been called 
and is at present cancelled. Control passes to the next statement. 

6. Any file that is open when a CANCEL statement is issued remains in its 
last used state. Any files remaining open at the end of the run-unit 
are automatically closed. 
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EXIT PPOqPAM ?tatgiagnt 

The EXIT PROGRAM statement marks the logical end of a called program. 
General Format: 

Mil [ PPQgPAH ] . 

Syntax Rules: 

1. The EXIT PROGRAM statement must appear in a sentence by itself. 

2. The EXIT PROGRAM sentence must be the only sentence in the paragraph. 

General Rules: 

1. The execution of an EXIT PROGRAM statement in a called program causes 
control to be passed to the calling program. Execution of an EXIT 
PROGRAM statement in a program that is not called causes the statement 
to act as if it were an EXIT statement. (Refer to the EXIT statement 
in Section VII.) 
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SECTION XV 
COMMUNICATION FACILITY 



DESCRIPTION OF THE COMMUNICATION FACILITY 

The communication facility provides the capability for accessing 
processing, and creating messages or portions thereof. It provides the ability 
to communicate with local and remote communication devices throuRh the COBOL 
Message Control System. 



COBOL Message Control System (CHCS) 

The CMOS is the logical interface with the operating system under which the 
COBOL object program operates. The primary functions of the CMCS are: 

a. To act as an interface between the COBOL object program and the 
network of communication devices. 

b. To allow COBOL object programs to send messages to, and receive 
messages from, other COBOL object programs. (This function is in 
addition to the implied intent of ANSI X3.23 - 197U. The policy for 
its use is determined by the site's COBOL MCS Administrator.) 

The first function, that of interfacing the COBOL object program with the 
communication devices, is the most obvious to the COBOL user. For the Multics 
implementation, the COBOL MCS does not usurp any communication device control 
functions from the operating system. Rather, the ability of the COBOL object 
program to enable or disable the logical connection between a terminal and the 
system is effective only while the terminal is used for communicating with the 
CMCS. 

The user may actually be unaware that the other two functions exist. 
Messages from communication devices are placed in input queues by the CMCS while 
awaiting disposition by the COBOL object program. Output messages from the 
COBOL object program are placed in output queues by the CMCS while awaiting 
transmission to communication devices. The structures, formats, and symbolic 
names of the queues are defined by the CMCS Administrator to the CMCS by means 
of a special queue generation language, before the execution of the COBOL object 
program. Symbolic names for message sources and destinations are also defined 
at that time. The user must specify symbolic names in the source program that 
are known to the CMCS. 

During the execution of a COBOL object program, the CMCS performs all 
necessary activities to update the various queues as required. 
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Relationship with COBOL Object Program 

The COBOL object program interfaces with the CMOS when it is necessary to 
send data, receive data, or to interrogate the status of the various queues that 
are created and maintained by the CHCS. In addition, the COBOL object program 
may direct the CMCS to establish or break the logical connection between the 
communication device and a specified portion of the CHCS queue structure. The 
method of handling the physical connection is a function of the Multics 
operating system. 



Relationship of COBOL Program to the CMCS and Communication Devices 

The interfaces that exist in a COBOL communication environment are 
established by the use of the level indicator CD and associated clauses in the 
Communication Section of the Data Division. There are two such interfaces: 

1. The interface between the COBOL object program and the CMCS. 

2. The interface between the CMCS and the communication devices. 

The COBOL source program uses three statements in the Procedure Division to 
control the interface with the CMCS: 

1. The RECEIVE statement, which causes data in a queue to be passed to 
the COBOL object program. 

2. The SEND statement, which causes data associated with the COBOL object 
program to be passed to one or more queues. 

3. The ACCEPT statement with the COUNT phrase, which causes the CMCS to 
indicate to the COBOL object program the number of complete messages 
in the specified queue structure. 

The COBOL source program uses two statements in the Procedure Division to 
control the interface between the CMCS and the communication devices: 

1. The ENABLE statement, which establishes a logical connection between 
the CHCS and one or more given communication devices. 

2. The DISABLE statement, which breaks a logical connection between the 
CMCS and one or more given communication devices. 



COMMUNICATION FACILITY DATA DIVISION - COMMUNICATION SECTION 

In a COBOL program, the communication description (CD) entries represent 
the highest level of organization in the Communication Section. The 
Communication Section header is followed by a communication description entry 
consisting of a level indicator (CD), a data-name, and a series of independent 
clauses. These clauses indicate the queues and sub-queues, the message date and 
time, the source, the text length, the status and end keys, and message count of 
input. These clauses also specify the destination count, the text length, the 
status and error keys, and destinations for output. The entry itself is 
terminated by a period. These record areas may be implicitly redefined by 
user-specified record description entries following the various communication 
description clauses. 
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CD SKELETON 



CD SKELETON 



Communic ation Description - Complete Entry Skeleton 

».H JJ)® °?««»"ni°ation description specifies the interface area between the CHCS 
and a COBOL program. 



Format 1 : 



CD cd-name ; FOR [ INITIAL ] INPUT 

[ ; SYMBOLIC QUEUE IS data-name-1 ] 

[ ; SYMBOLIC SUB-QUEUE>1 IS data-name-2 ] 
L ; SYMBOLIC SUB-QUEUE-2 IS data-name-3 ] 
f ; SYMBOLIC SUB-QUEUE-3 IS data-name-4 ] 
[| ; MESSAGE DATE IS data-name-5 ] 

r T 

L ; ntssAUE TIME IS data-name-6 J 

[ ; SYMBOLIC SOURCE IS data-name-7 ] 

[ ; TEXT LENGTH IS data-name-8 ] 

[ ; END KEY IS data-narae-9 ] 

[ ; STATUS KEY IS data-name-10 ] 

[ ; MESSAGE COUNT IS data-name-1 1 "] I 

J 

data-name-1, data-name-2, ..., data-name-1 1 J 
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CD SKELETON rn skfiftom 



Format 2: 



CD cd-name ; FOR OUTPUT 



[ ; DESTINATION COUNT IS data-name-l ] 

[ ; TEXT LENGTH IS data-nanie-2 ] 

[ ; STATUS KEY IS data-name-3 ] 

I > DESTINATION TABLE OCCURS integer-2 TIMES 

L ; INDEXED BY index-name-1 L » index-name-2 J ... 1 I 

[ ; ERROR KEY IS data-name-1 ] 

f ; SYMBOLIC DESTINATION IS data-name-S ] • 



Syntax Rules: 



Format 1 : 



1. The level Indicator CD must appear only in the Communication Section. 

2. Within a single program, the INITIAL clause may be specified in only 
one CD. The INITIAL clause must not be used in a program that 
specifies the USING phrase of the Procedure Division header. 

3. Except for the INITIAL clause, the optional clauses may be specified 
in any order. 

1. If none of the options in the format are specified, a level 01 data 
description entry must follow the CD entry. Any of the options may be 
followed by a level 01 data description entry. 



10/77 15-4 AS44A 



CD SKELETON 

CD SKELETON 



For each input CD, a record area of 87 contiguous standard data format 
enaraeters is allocated. This record area is defined to the CMCS as 
follows: 

a. The SYMBOLIC QUEUE clause defines data-name-1 as the name of an 
elementary alphanumeric data item of 12 characters occuovinc 
positions 1-12 in the record. ^ 

b. The SYMBOLIC SUB-QUEUE-1 clause defines data-name-2 as the name 
of an elementary alphanumeric data item of 12 characters 
occupying positions 13-24 in the record. 

c. The SYMBOLIC SUB-QUEUE-2 clause defines data-name-3 as the name 
of an elementary alphanumeric data item of 12 characters 
occupying positions 25-36 in the record. 

Q. The SYMBOLIC SUB-QUEUE-3 clause defines data-name--U as the name 
of an elementary alphanumeric data item of 12 characters 
occupying positions 37-'48 in the record. 

e. The MESSAGE DATE clause defines data-name-5 as the name of a data 
item whose implicit description is that of an integer of six 
digits without an operational sign occupying character positions 
UQ-S** in the record. 

f. The MESSAGE TIME clause defines data-name-6 as the name of a data 
item whose implicit description is that of an integer of eight 
digits without an operational sign occupying character positions 
55-62 in the record. 

g. The SYMBOLIC SOURCE clause defines data-name~7 as the name of an 
s*grsen«3ry 3j.piianu!ueric data item of 12 characters occupying 
positions 63-74 in the record. 

h. The TEXT LENGTH clause defines data-name-8 as the name of an 
elementary data it^m whose implicit description is that of an 
integer of four digits without an operational sign occupying 
character positions 75-78 in the record. 

i. The END KEY clause defines data-name-9 as the name of an 
elementary alphanumeric data item of one character occupying 
position 79 in the record. 

J. The STATUS KEY clause defines data-name-10 as the name of an 
elementary alphanumeric data item of two characters occupying 
positions 80-81 in the record. 

k. The MESSAGE COUNT clause defines data-name-ll as the name of an 
elementary data item whose Implicit description is that of an 
integer of six digits without an operational sign occupying 
character positions 82-87 in the record. 

The second option may be used to replace the above clauses by a series 
of data-names which, taken in order, correspond to the data-names 
defined by these clauses. 
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The use of either of the above options results in a 
implicit description is equivalent to the following: 



record whose 



Implicit Description 



Comment 



01 data-name-0. 



02 


data-name-1 


PICTURE 


X(12) 


02 


data-name-2 


PICTURE 


X(12) 


02 


data-name-3 


PICTURE 


X(12) 


02 


data-name-4 


PICTURE 


X(12) 


02 


data-name-5 


PICTURE 


9(06) 


02 


data-name-6 


PICTURE 


9(08) 


02 


data-name-7 


PICTURE 


X(12) 


02 


data-name-8 


PICTURE 


9(04) 


02 


data-name-9 


PICTURE 


X. 


02 


data-name-10 


PICTURE 


XX. 


02 


data-name-1 1 


PICTURE 


9(06) 



SYMBOLIC QUEUE 
SYMBOLIC SUB-QUEUE- 1 
SYMBOLIC SUB-QUEUE-2 
SYMBOLIC SUB-QUEUE-3 
MESSAGE DATE 
MESSAGE TIME 
SYMBOLIC SOURCE 
TEXT LENGTH 
END KEY 
STATUS KEY 
MESSAGE COUNT 



NOTE: In the above description, the information in 
column is for olarif loatlon only and is no* 
description. 



the 'Comment' 

k/ 3i w 



Record description entries following an input CD implicitly redefine 
this record and must describe a record of exactly 87 characters. 
Multiple redefinitions of this record are permitted; however, only the 
first redefinition may contain VALUE clauses. The CMCS always 
references the record according to the data descriptions defined in 
syntax rule 5 above. 

Data-name-1, data-name-2, ..., data-name-11 must be unique within the 
CD. Within this series, any data-name may be replaced by the reserved 
word FILLER. 



Format 2: 



1. The level indicator CD must appear only In the Communication Section. 

2. If none of the optional clauses under the CD entry are specified, a 
level 01 data description entry must follow the CD entry. 
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3. For each output CD, a record area of contiguous standard data format 
characters is allocated according to the following formula: (10 plus 
13 multiplied by integer-2). 

a. The DESTINATION COUNT clause defines data-name-1 as the name of a 
data item whose implicit description is that of an integer 
without an operational sign occupying character positions 1-t in 
the record. 

b. The TEXT LENGTH clause defines data— naine~2 as the name of an 
elementary data item whose implicit description Is that of an 
integer of four digits without an operational sign occupying 
character positions 5-8 in the record. 

c. The STATUS KEY clause defines data-name-3 to be an elementary 
alphanumeric data item of two characters occupying positions 9-10 
in the record. 

d. Character positions 11-23 and every set of 13 characters 
thereafter will form table items of the following description: 

• The ERROR KEY clause defines data-name-l as the name of an 
elementary alphanumeric data item of one character. 



The SYMBOLIC 
name of an 
characters. 



DESTINATION clause defines data-name-5 as the 
elementary alphanumeric data item of 12 



The use of the above clauses results in a 
description is equivalent to the following: 



record whose implicit 






01 data-nane-0. 



02 data-name-1 
02 data-name-2 
02 data-name-3 



PICTURE 9(0M). 
PICTURE 9(04). 
PICTURE XX. 



02 data-name OCCURS integer-2 TIMES. 



DESTINATION COUNT 
TEXT LENGTH 
STATUS KEY 
DESTINATION TABLE 



03 data-name-4 
03 data-name-5 



PICTURE X. 
PICTURE X(12) 



ERROR KEY 

SYMBOLIC DESTINATION 



NOTE: In the above description, the information in the 'Comment' 
column is for clarification only and is not part of the 
description. 

Record descriptions following an output CD implicitly redefine this 
record. Multiple redefinitions of this record are permitted; however, 
only the first redefinition may contain VALUE clauses. The CMOS 
always references the recorl according to the data descriptions 
defined in syntax rule 3 for Format 2. 



Data-name-1, data-name-2. 



data-name-5 must be unique within a CD. 
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6. If the DESTINATION TABLE OCCURS clause is not specified, one (1) ERROR 
KEY and one (1) SYMBOLIC DESTINATION area is assumed. In this case, 
neither subscripting nor indexing is permitted when referencing these 
data items. 

7. If the DESTINATION TABLE OCCURS clause is specified, data-name-4 and 
data-name-5 may only be referred to by subscripting or indexing. 



General Rules: 
Format 1 : 



1 . The input CD information constitutes the communication between the 

CMCS and the program as information about the message being handled. 

This information does not come from the terminal as part of the 
message. 

2. The contents of the data items referenced by data-name-2, data-name-3, 
and data-name-f^ , when not being used, must contain spaces. 

3. The data items referenced by data-name-1, data-name-2, data-name-3, 
and data-name-4 contain symbolic names designating queues, sub-queues, 
..., respectively. All symbolic names must follow the rules for the 
formation of system-names, and must have been previously defined to 
the CMCS. 

4. A RECEIVE statement causes the serial return of the 'next' message or 
a portion of a message from the queue as specified by the entries in 
the CD. 

If, during the execution of a RECEIVE statement, a message from a more 
specific source is needed, the contents of the data item referenced by 
data-name-1 can be made more specific by the use of the contents of 
the data items referenced by data-name-2, data-name-3, and in turn, 
data-name-t . When a given level of the queue structure is specified, 
all higher levels must also be specified. 

If less than all of the levels of the queue hierarchy are specified, 
the CMCS determines the 'next' message or portion of a message to be 
accessed. 

After the execution of a RECEIVE statement, the contents of the data 
items referenced by data-name-1 through data-name-t contain the 
symbolic names of all the levels of the queue structure. 

5. Whenever a program is scheduled by the CMCS to process a message, the 
symbolic names of the queue structure that demanded this activity are 
placed in the data items referenced by data-name-1 through data-name-M 
of the CD associated with the INITIAL clause, as applicable. In all 
other cases, the contents of the data items referenced by data-name-1 
through data-name-4 of the CD associated with the INITIAL clause are 
initialized to spaces. 

The symbolic names are inserted (or the initialization to spaces is 
completed) prior to the execution of the first Procedure Division 
statement. 
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The execution of a subsequent RECEIVE statement naming the same 
contents of the data items referenced by data-name-1 through 
data-narae-U returns the actual message that caused the program to be 
scheduled. Only at that time is the remainder of the CD updated. 

6. If the CMCS attempts to schedule a program that does not contain an 
INITIAL clause, the results are undefined. 

7. The contents of data-name-5 have the format 'YYMMDD' (year, month, 
day) and represent the date on which the CMCS recognises that the 
message is complete. 

The contents of the data item referenced by data-name-5 are only 
updated by the CMCS as part of the execution of a RECEIVE statement. 

8. The contents of data-name-6 have the format 'HHMMSSTT' (hours, 
minutes, seconds, hundredths of a second) and represent the time when 
the CMCS recognizes that the message is complete. 

The contents of the data item referenced by data-name-6 are only 
updated by the CMCS as part of the execution of a RECEIVE statement. 

9. During the execution of a RECEIVE statement, the CMCS provides, in the 
data item referenced by data-name-7, the symbolic name of the 
communication terminal that is the source of the message being 
transferred. However, if the symbolic name of the communication 
terminal is not known to the CMCS, the contents of the data item 
referenced by data-name-7 contain spaces. 

10. The CMCS indicates via the contents of the data item referenced by 
data-name-8 the number of character positions filled as a result of 
the execution of a RECEIVE statement. 

11. The contents of the data item referenced by data-name-9 are set only 
by the CMCS as part of the execution of a RECEIVE statement according 
to the following rules: 

a. When the MESSAGE phrase of the RECEIVE statement is specified, 
then: 

• If an end of group is detected, the contents of the data 
item referenced by d8ta-name-9 are set to 3. 

• If an end of message is detected, the contents of the data 
item referenced by data-name-9 are set to 2. 

• If less than a message is transferred, the contents of the 
data item referenced by data-name-9 are set to 0. 

b. When the SEGMENT phrase of the RECEIVE statement is specified, 
then: 

• If an end of group is detected, the contents of the data 
item rex-erenced by data-name-9 are set to 3. 

• If an end of message Is detected, the contents of the data 
item referenced by data-name-9 are set to 2. 
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• If an end of segment is detected, the contents of the data 
item referenced by data-name-9 are set to 1. 

• If less than a message segment is transferred, the contents 
of the data item referenced by data-name-9 are set to 0. 

c. When more than one of the above conditions is satisfied 
simultaneously, the rule first satisfied in the order listed 
determines the contents of the data item referenced by 
data-name-9 . 

12. The contents of the data item referenced by data-name-10 indicate the 
status condition of the previously executed RECEIVE, ACCEPT MESSAGE 
COUNT, ENABLE INPUT , or DISABLE INPUT statements. 

The actual association between the contents of the data item 
referenced by data-narae-10 and the status condition itself is defined 
in Figure 15-1. 

13. The contents of the data item referenced by data-name-H indicate the 

number of messages that exist in a queue, sub-queue-1, The 

CMCS updates the contents of the data item referenced by data-name-11 
only as part of the execution of an ACCEPT statement that contains a 
COUNT phrase. 



Format 2: 



1 The nature of the output CD information is such that it is not sent to 
the terminal, but constitutes the communication between the program 
and the CMCS as information about the message being handled. 

2. During the execution of a SEND, ENABLE OUTPUT . or DISABLE OUTPUT 
statement, the contents of the data item referenced by data-name-1 
will indicate to the CMCS the number of symbolic destinations that are 
to be used from the area referenced by data-name-5. 

The CMCS finds the first symbolic destination in the first occurrence 
of the area referenced by data-name-5, the second symbolic destination 
in the second occurrence of the area referenced by data-nane-5, .... 
up to and including the occurrence of the area referenced by 
data-name-5 indicated by the contents of data-name-1. 

If, during the execution of a SEND, ENABLE OUTPUT, or DISABLE OUTPUT 
statement, the value of the data item referenced by data-name-1 is 
outside the range of 1 through integer-2, an error condition is 
indicated anS the execution of the SEND, ENABLE OUTPUT, or DISABLE 
OUTPUT statement is terminated. 

3. It is the responsibility of the user to ensure that the value of the 
data item referenced by data-name-1 is valid when the SEND, ENABLE 
OUTPUT, or DISABLE OUTPUT statement is executed. 

4 As part of the evecution of a SEND statement, the CMCS interprets the 
consents of the data item referenced by data-name-2 to be the user's 
indication of the number of leftmost character positions of the data 
i?em Referenced by the associated SEND identifier from which data is 
to be transferred. 
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Each occurrence of the data item referenced by data-name-5 contains a 
symbolic destination previously known to the CMCS. These symbolic 
destination names must follow the rules for the formation of 
system-names. 

The contents of the data item referenced by data-name-3 indicate the 
status condition of the previously executed SEND, ENABLE OUTPUT, or 
DISABLE OUTPUT statement. 

The actual association between the contents of the data item 
referenced by data-name-3 and the status condition itself is defined 
in Figure 15-1 . 

If, during the execution of a SEND, an ENABLE OUTPUT, or a DISABLE 
OUTPUT statement, the CMCS determines that any specified destination 
is unknown, the contents of the data item referenced by data-name-3 
and all occurrences of the data items referenced by data-name-4 are 
updated. 

The contents of the data item referenced by data-name-M when equal to 
one (1) indicate that the associated value In the area referenced by 
data-name-5 has not been previously defined to the CMCS. Otherwise, 
the contents of the data Item referenced by data-name-1 are set to 
zero (0). 
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1-RECEIVE 
2-SEND 

3-ACCEPT MESSAGE COUNT 
l»-ENABLE INPUT 
5-ENABLE INPUT TERMINAL 
6-ENABLE OUTPUT 
7-DISABLE INPUT 
8-DISABLE INPUT TERMINAL 
9-DISABLE OUTPUT 
10-STATUS KEY CODE 



{ 


see 


aS 


Rend 


a 


^ 


1£^ 






1 


2 


3 


7 


5 


T 


7 


T 


9 1 


TS" 


Description 


T 


T 


Y 


Y 


Y 


Y 


Y 


Y 


Y" 


W 


No error detected. Action completed. 




Y 
















■nr 


One or more destinations are disabled. 
Action completed. 




X 








Y 






Y" 


15 


One or more destinations are unknown. Action 
completed for known destinations. No action 
taken for unknown destinations. 


X 


— 


X 


X 






Y 






20 


One or more queues or sub-queues are unknown. 
No action taken. 










Y 






X 




20 


The source is unknown. No action taken. 




T 








Y 




Y 


X 


2T 


All destinations unknown. 




T 








X 






Y 


15 


Content of Dfi^TiriAtlON COUWf invalid. No 
action taken. 








Yi 


T 


T 


T 


X 


Y 


W 


Password invalid. No enabling/disabling action 
taken. 




X 
















■^ 


Character count greater than length of 
sending field. No action taken. 




T 
















■■50 


Partial segment with either zero character 
count or no sending area specified. No 
action taken. 




Y 
















■77 


Destinations good and/or disabled and/or 
unknown and/or Invalid password. 



Note: 



This figure indicates the possible contents of the data items referenced 
by data-name-10 for Format 1 and by data-name-3 and data-name-M for 
Format 2 at the completion of each statement shown. An 'X' on a line in 
a statement column indicates that the associated code shown for that line 
is possible for that statement. 



Figure 15-1. Communication Status Key/Error Key Conditions 
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PROCEDURE DIVISION FOR THE COMMUNICATION FACILITY 



ACCEPT MESSAGE COUNT Statement 

The ACCEPT MESSAGE COUNT statement causes the number of messages in a queue 
to be made available. 



General Format: 

ACCEPT cd>name MESSAGE COUNT 

Syntax Rules: 

1. cd-name must reference an input CD. 

General Rules: 

1 . The ACCEPT MESSAGE COUNT statement causes the MESSAGE COUNT field 
specified for cd-name to be updated to indicate the number of messages 
that exist in a queue, sub-queue-1, ..., . 

2. Upon execution of the ACCEPT MESSAGE COUNT statement, the contents of 
the area specified by a communication description (CD) entry must 
contain at least the name of the symbolic queue to be tested. Testing 
the condition causes the contents of the data items referenced by 
data-name-10 (STATUS KEY) and data-name-11 (MESSAGE COUNT) of the area 
associated with the communication entry to be appropriately updated. 



10/77 



15-13 AS44A 



DISABLE 



DISABLE 



DISABLE Statement 



The DISABLE statement notifies the CMCS to inhibit data transfer between 
specified destinations and output queues for output or between specified sources 
and input queues for input. 



General Format: 



DISABLE' 



{ INPUT r 
OUTPUT 



TERMINAL 



] 



} 



cd-name WITH KEY 



{identifier-1 "1 
literal-1 J 



Syntax Rules: 



1. cd-name must reference an input CD when the INPUT phrase is specified. 

2. cd-name must reference an output CD when the OUTPUT phrase is 
specified. 

3. Literal-1 or the contents of the data item referenced by identifier-1 
must be defined as alphanumeric. 



General Rules: 



The DISABLE statement provides a logical disconnection between the 
CMCS and the specified sources or destinations. When this logical 
disconnection is already In existence, or is to be handled by some 
other means external to this program, the DISABLE statement is not 
required in this program. The logical path for the transfer of data 
between the COBOL programs and the CMCS is not affected by the DISABLE 
statement. 

When the INPUT phrase with the optional word TERMINAL is specified, 
the logical path between the source and all associated queues and 
sub-queues is deactivated. Only the contents of the data item 
referenced by data-name-7 (SYMBOLIC SOURCE) of the area referenced by 
cd-name are meaningful to the CMCS. 

When the INPUT phrase without the optional word TERMINAL is specified, 
the logical paths for all of the sources associated with the queues 
and sub-queues specified by the contents of data-name-1 (SYMBOLIC 
QUEUE) through data-name-M (SYMBOLIC SUB-QUEUE-3) of the area 
referenced by cd-name are deactivated. 
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H. When the OUTPUT phrase is specified, the logical path for a 
destination, or the logical paths for all destinations, specified by 
the contents of the data item referenced by data-naine-5 (SYMBOLIC 
DESTINATION) of the area referenced by cd-name are deactivated. 

5. Literal-1 or the contents of the data-name referenced by identifier-1 
are matched with a password built into the system. The DISABLE 
statement is honored only if literal-1 or the contents of the data 
item referenced by identifier-1 match the System password. When 
literal-1 or the contents of the data item referenced by identifier-1 
do not match the system password, the value of the STATUS KEY item in 
the area referenced by cd-name is updated. 

The CMCS is capable of handling a password of from one to ten 
characters inclusive. 

6. The CHCS ensures that the execution of a DISABLE statement causes the 
logical disconnection to occur at the earliest time the source or 
destination is inactive. Execution of the DISABLE statement never 
causes the remaining portion of the message to be terminated during 
transmission to or from a terminal. 
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ENABLE Statement 

The ENABLE statement notifies the CMCS to allow data transfer between 
specified destinations and output queues for output or between specified sources 
and input queues for input. 



General Format: 



ENABLE 



{ INPUT r TERMINAL 1 1 f identifier-1 "^ 

•■ "" > cd-name WITH KEY < > 

OUTPUT J ^.literal-1 J 



Syntax Rules: 



1. cd-name must reference an input CD when the INPUT phrase is specified. 

2. cd-naise must reference an output CD when the OUTPUT phrase is 
specified. 

3. Literal-1 or the contents of the data item referenced by identifier-1 
must be defined as alphanumeric. 



General Rules; 



1. The ENABLE statement provides a logical connection between the CMCS 
and the specified sources or destinations. When this logical 
connection is already in existence, or is to be handled by some other 
means external to this program, the ENABLE statement is not required 
in this program. The logical path for the transfer of data between 
the COBOL programs and the CMCS is not affected by the ENABLE 
statement. 

2. When the INPUT phrase with the optional word TERMINAL is specified, 
the logical path between the source and all associated queues and 
sub-queues that are already enabled is activated. Only the contents 
of the data item referenced by data-name-7 (SYMBOLIC SOURCE) of the 
area referenced by cd-name are meaningful to the CMCS. 

3. When the INPUT phrase without the optional word TERMINAL is specified, 
the logical paths for all of the sources associated with the queues 
and sub-queues specified by the contents of data-name-1 (SYMBOLIC 
QUEUE) through data-name-4 (SYMBOLIC SUB-QUEUE-3) of the area 
referenced by cd-name are activated. 
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rfhen the OUTPUT phrase is specified, the logical path for a 
destination or the logical paths for all destinations, Specified by 

DeIti;a?iS;?'o? .h'^ '"'" r^^' referenced by data-nam^-s'^ (SYMBOL?? 
L.tb.^NAiiOn) of the area referenced by cd-name are activated. 

^r^^'"™irih^H ^*^f °°"tents of the data Item referenced by identifler-1 
are matched with a password built into the system. The ENABLE 
statement is honored only if literal-! or the contents of the data 
^JtlJ^?*""*"^^'* ^\ identifier-1 match the system password. When 
literal-1 or the contents of the data item referenced by identifier!" 
do not match the system password, the value of the STATUS KEY item in 
the area referenced by cd-name is updated. 

ItL.S?^^ ^f capable of handling a password of from one to ten 
characters inclusive. 
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PURGE Statement 

The PURGE statement eliminates from the CMCS a partial message that has 
been released by one or more SEND statements. 

General Format: 

PURGE ed-name 
Syntax Rule: 

1. cd-name must reference an output CD. 
General Rules: 

1. Execution of a PURGE statement causes the CMCS to eliminate any 
partial message awaiting transmission to the destinations specified in 
the CD referenced by cd-name. 

2. Any message that has associated with it an EMI or EGI is not affected 
by the execution of a PURGE statement. 

3. The contents of the data item referenced by data-name-3 (STATUS KEY) 
and the contents of the data item referenced by data-name-M (ERROR 
KEY) of the area referenced by cd-name are updated by the CMCS. (See 
"General Rules" under "The Communication Description — Complete Entry 
Skeleton.") 
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RECEIVE 



ine RECEIVE statement allows a message, message segment, or a portion of a 
message or a segment, and related information concerning that data to be made 
available to the COBOL program from a queue maintained by the CHCS. The RECEIVE 
statement also allows a specific imperative statement to be executed when no 
data is available. 



General Format: 



{ MESSAGE "^ 
\ INTO identlfier-1 f ; NO DATA imperative-statement 1 
SEGMENT J •- J 



RECEIVE cd 



Syntax Rules: 

1. cd-name must reference an input CD. 

General Rules: 

1. The contents of the data items specified by data-name-1 (SYMBOLIC 
QUEUE) through data-name-1 (SYMBOLIC SUB-QUEUE-3) of the area 
referenced by cd-name designate the queue structure containing the 
message. 

2. The message, message segment, or portion of a message or a segment is 
transferred to the receiving character positions of the area 
referenced by identifier-1 , aligned to the left without spacefill. 

3. When, during the execution of a RECEIVE statement, the CMCS causes 
data to be made available in the data Item referenced by identifier-1, 
control is transferred to the next executable statement, whether or 
not the NO DATA phrase is specified. 

1. When, during the execution of a RECEIVE statement, the CHCS does not 
make data available in the data item referenced by identifier-1, the 
following conditions occur: 

a. If the NO DATA phrase is specified, the RECEIVE operation is 
terminated with the Indication that activities are complete (see 
general rule 5), and the imperative statement in the NO DATA 
phrase is executed. 

b. If the NO DATA phrase is not specified, execution of the object 
program is suspended until data is made available in the data 
item referenced by identifier-1. 

c. If one or more queues or sub-queues is unknown to the CMCS, 
control passes to the next executable statement, whether or not 
the NO DATA phrase is SLpecified. See Figure 15-1. 
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5. The data items identified by the input CD are appropriately updated by 
the CMCS during each execution of a RECEIVE statement. 

6. A single execution of a RECEIVE statement never returns to the data 
item referenced by identifier-1 more than a single message (when the 
MESSAGE phrase is used) or more than a single segment (when the 
SEGMENT phrase is used). However, the CMCS does not pass any portion 
of a message to the object program until the entire message is 
available in the input queue, even if the SEGMENT phrase of the 
RECEIVE statement is specified. 

7. When the MESSAGE phrase is specified, end-of-segment indicators are 
ignored, and the following rules apply to the data transfer: 

a. If a message is the same size as the area referenced by 
identifier-1, the message is stored in the area referenced by 
identifier-1 . 

t. If the message size is less than the area referenced by 
identifier-1, the message is aligned to the leftmost character 
position of the area referenced by identifier-1 with no 
spacefill. 

c. If the message size is greater than the area referenced by 
identifier-1, the message fills the area referenced by 
identifler-1 from left to right starting with the leftmost 
character of the message. The remainder of the message can be 
transferred to the area referenced by identifier-1 with 
subsequent RECEIVE statements referring to the same queue, 
sub-queue, ..., . The remainder of the message, for the purposes 
of applying rules 7a, 7b, and 7c (above), is treated as a new 
message. 

8. When the SEGMENT phrase is specified, the following rules apply: 

a. If a segment is the same size as the area referenced by 
identifier-1, the segment is stored in the area referenced by 
identifier-1 . 

b. If the segment size is less than the area referenced by 
identifier-1, the segment is aligned to the leftmost character 
position of the area referenced by identifier-1 with no 
spacefill. 

c. If the segment size is greater than the area referenced by 
identifier-1, the segment fills the area referenced by 
identifier-1 from left to right starting with the leftmost 
character of the segment. The remainder of the segment can be 
transferred to the area referenced by identifier-1 with 
subsequent RECEIVE statements referring to the same queue, 
sub-queue, ..., . The remainder of the segment, for the purposes 
of applying these rules (8a, 8b, and 8c), is treated as a new 
segment. 
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RECEIVE 



RECEIVE 



;,. X. the text to be accessed by the RECEIVE statement has an 
end-of -message indicator or an end-of-group indicator associated with 
it, the existence of an end-of-segment indicator associated with the 
text is implied and the text is treated as a message segment accordine 
to general rule 8. 

10. After the execution of a RECEIVE statement has returned a portion of a 
message, only the subsequent execution of RECEIVE statements in that 
run unit can cause the remaining portion of the message to be 
returned. 

11. After the execution of a STOP RUN statement, any input message only 
partially obtained in that run unit is returned to the input queue. 
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SEND Statement 

The SEND statement causes a message, a message segment, or a portion of a 
message or a segment to be released to one or more output qiteues maintained by 
the CHCS. 



Format 1 



SEND cd-name FROM identifier-1 



Format 2: 



{WITH identif ier-2 "1 

WITH ESI : I 

WITH EMI I 

WITH m J 



{ BEFORE 1 
AFTER J 



ADVANCING ' 



Hidentlf ier-3 1 T LINE "I V 
Integer J [ LIMES J J 

{mnemonic-name | 
PAGE J 



Syntax Rules: 



Formats 1 and 2 ; 

1. cd-name must reference an output CD. 

2. Identif ier-2 must reference a one-character integer that does not have 
an operational sign. 

3. When Identif ler-3 is used in the ADVANCING phrase, it must be the name 
of an elementary integer item. 

U. Integer, or the value of the data item referenced by identifier-3, may 
be zero. 

5. Mnemonic-name must be defined by the SPECIAL-NAMES paragraph of the 
Environment Division, and can have an Integer value only in the range 
of 1-16. 
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SEND SEND 

General Rules: 
Formats 1 and 2 : 

1. When a receiving communication device (printer, display screen, card 
punch) is oriented to a fixed line size: 

a. Each message or message segment begins at the leftmost character 
position of the physical line. 

b. A message or message segment that is smaller than the physical 
line size is released so as to appear space-filled to the right. 

c. Excess characters of a message or message segment are not 
truncated. The characters are packed to a size equal to that of 
the physical line and then transmitted to the communication 
device. The process continues on the next line with the excess 
characters. 

2. irfhen a receiving communication device (paper tape punch, another 
computer, etc.) is oriented to handle variable-length messages, each 
message or message segment begins in the next available character 
position of the communication device. 

3. ds part of the execution of a SEND statement, the CMCS interprets the 
contents of the data Item referenced by data-name-2 (TEXT LENGTH) of 
the area referenced by cd-narae to be the user's indication of the 
number of leftmost character positions of the data item referenced by 
identifier-! from which data is to be transferred. 

If the contents of the data item referenced b" data-nanie— 2 (TEXT 
LENGTH) of the area referenced by cd-name are zero, no characters of 
^he data item referenced by identifier-1 are transferred. 

If the contents of the data item referenced by data-name-2 (TEXT 
LENGTH) of the area referenced by cd-name are outside the range of 
2ero through the size of the data item referenced by identifier-1 
inclusive, an error is indicated by the value of the data item 
referenced by data-name-3 (STATUS KEY) of the area referenced by 
nd-name, and no data is transferred. See Figure 15-1. 

U. As part of the execution of a SEND statement, the contents of the data 
item referenced by data-name-3 (STATUS KEY) of the area referenced by 
cd-name are updated by the CMCS. 

5. The effect of placing special control characters within the contents 
of the data item referenced by identifier-1 is undefined. 

6. A single execution of a Format 1 SEND statement releases only a single 
portion of a message or of a message segment to the CMCS. 
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A single execution of a Format 2 SEND statement never releases to the 
CMCS more than a single message or a single message segment as 
indicated by the contents of the data item referenced by identifier-2 
or by the specified indicator ESI, EMI, or EGI. 

However, the CMCS does not transmit any portion of a message to a 
communication device until the entire message is placed in the output 
queue. 

During the execution of the run unit, the disposition of a portion of 
a message not terminated by an EMI or EGI is undefined. However, the 
message does not logically exist for the CMCS and therefore cannot be 
sent to a destination. 

After the execution of a STOP RUN statement, any portion of a message 
transferred from the run unit via a SEND statement, but not terminated 
by an EMI or EGI, is purged from the system. Thus, no portion of the 
message is sent. 

After the execution of a SEND statement has released a portion of a 

message to the CMCS, only the subsequent execution of SEND statements 

in the same run unit cars cause the remaining portion of the message to 
be released. 



General Rules: 

Format 2 Only : 
1. 



The content of the data Item referenced by identifier-2 indicates that 
the content of the data item referenced by identifier-1 is to have an 
end-of-segment indicator, an end-of -message indicator, or an 
end-of-transmission indicator associated with it as shown below: 



If the content of the 
data item referenced 
by identifier-2 is 


then the content of the 
data item referenced by 
identifier-1 has assoc- 
iated with it 


which means 








•0' 


no indicator 


no indicator 


•T 


ESI 


end-of-segment indicator 


'2' 


EMI 


end-of-message indicator 


'3' 


EGI 


end-of-group indicator 
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Any character other than '1', '2', or '3' will be interpreted as 'C. 
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SEND 



If the content of the data Item referenced by identifier-2 is other 
than M', '2', or '3', and identifler-1 is not soecifled. then an 
error is indicated by the value in the data item referenced by 
data-name-3 (STATUS KEY) of the area referenced by cd-name, and no 
data is transferred. 

The ESI indicates to the CMCS that the message segment is complete. 
The EMI indicates to the CMCS that the message, which may consist of 
more than one segment, is complete. 

The EGI indicates to the CMCS that the group of messages is complete. 

The CMCS recognizes these indicators and establishes the internal 
mechanisms necessary to maintain group, message, and segment control. 

The hierarchy of ending indicators is EGI, EMI, and ESI. An EGI need 
not be preceded by an ESI or EMI. An EMI need not be preceded by an 
ESI. 

The ADVANCING phrase allows control of the vertical positioning of 
each message or message segment on a communication device where 
vertical positioning is applicable. If vertical positioning is not 
applicable for the device, the CMCS ignores the vertical positioning 
specified or implied. 

If identifier-2 is specified, and the content of the data item 
referenced by ldentifier-2 is zero, the ADVANCING phrase is ignored by 
the CMCS. 

On a communication device where vertical positioning is applicable and 
the ADVANCING phrase is not specified, automatic advancing is provided 
as if the user had specified AFTER ADVANCING 1 LINE. 

If the ADVANCING phrase is specified, explicitly or implicitly, and 
vertical positioning is applicable, the following rules apply: 

a. If identifier-3 or integer is specified, the characters 
transmitted to the communication device are repositioned 
vertically downward the number of lines equal to the value 
associated with the data item referenced by identifier-3 or 
integer. 

b. If mnemonic-name is specified, the characters transmitted to the 
communication device are positioned according to the rules 
specified for that communication device. 

c. If the BEFORE phrase is used, the message or message segment is 
represented on the commur;lcation device before vertical 
repositioning according to general rules 7a and 7b above. 

d. If the AFTER phrase is used, the message or message segment is 
represented on the communication device after vertical 
repositioning according to general rules 7a and 7b above. 

e. If the PAGE phrase is specified, the characters transmitted to 
the communication device are represented on the device before or 
after (depending on the phrase used) the device is repositioned 
to the next page. If PAGE is specified, but page has no meaning 
in conjunction with a specific device, then advancing is provided 
as if the user had specified BEFORE or AFTER (depending on the 
phrase used) ADVANCING 1 LINE. 
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SECTION XVI 
REPORT WRITER 



DESCRIPTION OF THE REPORT WRITER 

The report writer feature provides the facility for producing reports by 
specifying the physical appearance of a report instead of specifying the detailed 
procedures necessary to produce the report. 

A hierarchy of levels is used to define the logical organization of a 
report. Each report is divided into report groups, which in turn are divided 
into sequences of items. This hierarchical structure permits explicit reference 
to a report group with implicit reference to other levels in the hierarchy. A 
report group contains one or more items to be presented on one or more lines! 

The report writer feature emphasizes the organization, format, and contents 
of an output report. Although a report can be produced using the standard COBOL 
language, the report writer language characteristics provide a more concise method 
for report structuring and report production. Much of the Procedure Division 
coding which would normally be supplied by the user is instead provided automatically 
by the Report Writer Control System (RWCS). Thus, the user is relieved of 
writing procedures for moving data, constructing print lines, counting lines on 
a page, numbering pages, producing heading and footing lines, recognizing the 
end of logical data subdivisions, updating sum counters, etc. All of these 
operations are accomplished by the RWCS from source languago st^t'>"'e"ts ^^a*- 
appear primarily in the Report Section of the Data Division of the "so"urcV"program" 

Data movement to a report is directed by the Report Section clauses SOURCE, 
SUM, and VALUE. Fields of data are positioned on a print line by means of the 
COLUMN NUMBER clause. The PAGE clause specifies the length of the page, the 
size of the heading and footing areas, and the size of the area in which the 
detail lines will appear. Data items may be specified to form a control hierarchy. 
During the execution of a GENERATE statement, the RWCS uses the control hierarchy 
to check automatically for control breaks. When a control break occurs, summary 
information (subtotals) can be presented. 
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LINE-COUNTER 

The reserved word LINE-COUNTER is a name for a special register that is 
generated for each report description entry in the Report Section of the Data 
Division. The implicit description is that of an unsigned integer that must be 
capable of representing a range of values from zero (0) through 999999. The 
usage is COMP-6. The value in LINE-COUNTER is maintained by the RWCS and is 
used to determine the vertical positioning of a report. The value in LINE-COUNTER 
may be accessed by Procedure Division statements; however, only the RWCS can 
change the value of LINE-COUNTER. 



PAGE-COUNTER 

The reserved word PAGE -COUNTER is a name for a special register that is 
generated for each report description entry in the Report Section of the Data 
Division. The implicit description is that of an unsigned integer that must be 
capable of representing a range of values from one (1) through 999999. The 
usage is COMP-6. The value in PAGE-COUNTER is maintained , by the RWCS and is 
used by the program to number the pages of a report. The value in PAGE-COUNTER 
may be altered by Procedure Division statements. 

In the Report Section, neither a sum counter nor the special registers 
LINE-COUNTER and PAGE -COUNTER can be used as a subscript. 



Relationship with File Input/Output 

The report file is described in Section IX, File Input/Output, and is subject 
to the following restrictions. 

An OPEN statement, specifying either the OUTPUT phrase or the EXTEND phrase, 
must have been executed prior to the execution of the INITIATE statement, and a 
CLOSE statement, without the REEL phrase or the UNIT phrase, must be executed 
for this file subsequent to the execution of the TERMINATE statement. No other 
input/output statement may be executed for this file. 
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DATA DIVISION FOR THE REPORT WRITER 



File Section for the Report Writer 



A REPORT(S) clause is required in the FD entry to list the names of the 
reports to be produced. 



Report Section for the Report Writer 

In the Report Section, the description of each report must begin with a 
report description entry (RD entry) and be followed by the entries that describe 
the report groups within the report. 



REPORT DESCRIPTION ENTRY 

In addition to naming the report, the RD entry defines the format of each 
page of the report by specifying the vertical boundaries of the region within 
which each type of report group may be printed. The RD entry also specifies the 
control data items. When the report is produced, changes in the values of the 
control data items cause the detail information of the report to be processed in 
groups called control groups. 

Each report named in the REPORT(S) clause of an FD entry in the File Section 
must be the subject of an RD entry in the Report Section. Furthermore, each 
report in the Report Section must be name^J in one, and only one, FD entry. 



REPORT GROUP DESCRIPTION ENTRY 

The report groups that will make up the report are described following the 
RD entry. The description of each report group begins with a report group 
description entry; that is, an entry that contains a level-number 01 and a TYPE 
clause. Subordinate to the report group description entry there may appear 
group and elementary entries that further describe the characteristics of the 
report group. 
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FD SKELETON 



File Description Entry For The Report Writer 

The file description furnishes information concerning the physical structure, 
identification, and report-names pertaining to a given report file. 



General Format: 



FD file-name 



[r n f RECORDS 1 1 

; BLOCK CONTAINS I integer-1 TO J integer-2 S f 

[_ CHARACTERS J J 

; RECORD CONTAINS j] integer-3 TO J integer-4 CHARACTERS 



; CODE-SET IS ' 



alphabet-name 

STANDARD-1 

NATIVE 

ASCII 

EBCDIC 



; LABEL 



{ RECORD IS "1 r STANDARD 1 
RECORDS ARE J j OMITTED J 

{ REPORT IS "1 - _ 

f report-name-1 I , report-name-2 I 
REPORTS ARE J *" -* 



REPORTS ARE 

FILE- 



VALUE OF 



ID IS r data-nsme-l "1 
t literal-1 J 

{data-name-2 "1 
literai-2 J 
{data-name-3 ") 
literal-3 J 



RETENTION IS 



CATALOG-NAME IS 
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FD SKELETON PD SKELETON 



Syntax Rules: 



The level indicator FD identifies the beginning of a file description 
and rrrust precede the file-name. 

The clauses which follow the name of the file are optional in most 
cases and their order of entry is not significant. 

The file referenced by f ile-namemust be defined , explicitly or implicitly 
in the FILE -CONTROL paragraph of the Environment Division, as a sequential 
file. In addition, each report named in the REPORT(S) clause must be 
the subject of a report description entry in the Report Section. 

No record description entries are permitted for file-name and no 
input/output statements, except the OPEN statement with either the 
OUTPUT or EXTEND phrase and the CLOSE statement without either the 
REEL or UNIT phrase, may be executed for this file. 



General Rule: 



^^f^'^J-P^.^^^^' applications, and rules governing the usage of the LABEL RECORDS 
and VALUE (F clauses are presented in Section IX, File Input/Output, 
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RD SKELETON 



Report Description - Complete Entry Skeleton 

The report description entry names a report, specifies any identifying 
characters to be appended to each print line, and describes the physical structure 
and organization of that report. 



General Format: 



RD report-name 

I] ; CODE literal-1 J 



[ 



CONTROL IS 1 [ data-name-1 f, data-name-2 T ... 

I , data-name-1 I , data-name-2 J •••J 



CONTROLS ARE 



PAGE 



[ ' HLJ 



LIMIT 



LIMITS 



H data-name- 
FINAL [ , 

isl r LINE 1 

I integer-1 I I 

AREj L LINES J 



}] 



ADING integer-2 « 



, FIRST DETAIL integer-3 ] 
, LAST DETAIL integer-4 ] 
, FOOTING integer-5 ] 



Syntax Rules: 



1. The report-name must appear in one, and only one, REPORT clause. 

2. The order of appearance of the clauses following the report-name is 
immaterial. 

3. Report-name is the highest permissible qualifier that may be specified 
for LINE-COUNTER, PAGE-COUNTER, and all data-names defined within the 
Report Section. 

4. One or more report group description entries must follow the report 
description entry. 

PAGE-COUNTER Rules: 

1. PAGE-COUNTER is the reserved word used to reference a special register 
that is automatically created for each report specified in the Report 
Section. 

2. In .the Report Section, a reference to PAGE-COUNTER can only appear in 
a SOURCE clause. Outside of the Report Section, PAGE-COUNTER may be 
used in any context in which a data-name with an integral value can 
appear. 
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''^ ^^^^"°" RD SKELETON 



3. If more than one PAGE-COUNTER exists in a program, PAGE-COUNTER must 
De qualified by a report-name whenever it is referenced in the Procedure 
Division , 

r^' ,^."®^f®P°^^ Section, an unqualified reference to pAQE-CnUN'^'^'R is 
implicitly qualified by the name of the report in which the reference 
pfrp roHMTrR^^^'T J'^^ PAGE -COUNTER of a different report is referenced, 
PAGE-COUNTER must be explicitly qualified by that report-name. 

1. Execution of the INITIATE statement causes the Report Writer Control 
System to set the PAGE-COUNTER of the referenced report to one O) 

^* purl~^°"'^^!'' ^^ automatically incremented by one (1) each time the 
KWtb executes a page advance.. 

6. PAGE-COUNTER may be altered by Procedure Division statements. 



LINE-COUNTER Rules: 

LINE-COUNTER is the reserved word used to reference a special register 
that is automatically created for each report specified in the Report 



Section 



^' ^"^nnprr^P?'"^ ^^^^^"'.^ reference to LINE-COUNTER can only appear in 
a SOURCE clause. Outside of the Report Section, LINE -COUNTER may be 
used m any context in which a data-name with an integral value may 
appear. However, only the RWCS can change the contents of LINE-COUNTER. 

3. If more than one LINE-COUNTER exists in a program, LINE-COUNTER must 
be qualified by a report-name whenever it is referenced in the Procedure 
Division. 

T" t"S -Jsport Section, an unqualified reference to LINE-COUNTER is 
implicitly qualified by the name of the report in which the reference 
t'?m? nn,',HT"^''p^"^''f K*^^ LINE-COUNTER of a different report is referenced, 
LINE-COUNTER must be explicitly qualified by that report-name. 

4. Execution of an INITIATE statement causes the RWCS to set the LINE-COUNTER 

rLJ?!f TTMP^rnnHTc,,?''^'"* ^° ='^''° ^°^- "^^ ^"^3 also automatically 
resets LINE-COUNTER to zero each time it executes a page advance. 

5. The value of LINE-COUNTER is not affected by the processing of nonprlntable 
report groups nor by the processing of a printable report group whose 
printing is suppressed by the SUPPRESS statement. 

6. At the time each print line is presented, the value of LIME-COUNTER 
represents the line number on which the print line is presented. The 
value of LINE-COUNTER after the presentation of a report group is 
governed by the presentation rules for the report group. 
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REPORT GROUP SKELETON 



Report Group Description - Complete Entry Skeleton 

The report group description entry specifies the characteristics of a report 
group and of the individual items within a report group. 

Format 1 : 



01 I data-name-1 

; LINE NUMBER IS 



(integer-1 I 
PLUS integer- 



ON NEXT PAGE 
2 



] 



)] 



[f integer-3 1 1 
; NEXT GROUP IS i PLUS integer-^ > 
L NEXT PAGE J J 



; TYPE IS, 



NEXT PAGE 

REPORT HEADING 
l!H 



PAGE HEADING 



{ REPORT HEADING "t 
m / 

f 

lb 

(CO 
CH 

{ DETAIL "X 
DE _/ 

(CONTROL FOOTING *\ f data-name-3 \ 
5F J V FINAL J 

{ PAGE FOOTING "I 
PF J 



PH f 

CONTROL HEADING 1 f data-name-2 1 
J L FINAL J 

DETAIL " 
DE 

CONTROL FOOTING 



{RE 
W 



PAGE FOOT ING 
PF 

REPORT FOOTING 



) 



T; [ USAGE is] DISPLAY "j . 



Format 2: 



level-number f data-name-1 J 

[f integer-1 f ON NEXT PAGE I "1 "I 
; LINE NUMBER IS ^ f 

L PLUS integer-2 J J 

[■; [ USAGE IS ] DISPLAY I . 
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REPORT GROUP SKELETON 



Format 3: 



level-number i data-name- 1 : 



j[ ; BLANK WHEN ZERO "j 

L ; GROUP INDICATE "J 

f f JUSTIFIED ") 1 

[f integer-1 f ON NEXT PAGE 1 1 1 
; LINE NUMBER IS < ^ -» i 

L PLUS integer-2 J J 

[ ; COLUMN NUMBER IS integer-3 1 



{ PICTURE 1 
PIC J 



IS character-string 



[r T f LEADING 1 
I SIGN is J < } 
L TRAILING J 



SEPARATE CHARACTER 



] 
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REPORT GROUP SKELETON 



{ 



SOURCE IS identlfier-1 
VALUE IS literal 



^ SUM identifier-2 |_ , identifier-3 1 

I UPON data-name-2 [_ , data-name-3 J 

[f data-name-4 "J I ^ 
RESET ON < f ? 

L FINAL J J J 



[ ; [ USAGE IS ]| DISPLAY ] .■ 



]}... 



Syntax Rules: 



1. The report group description entry can appear only in the Report Section. 

2. Except for the data-name clause, which when present must immediately 
follow the level-number, the clauses may be written in any sequence. 

3. In Format 2, the level-number may be any integer from 02 to 48, inclusive. 
In Format 3, the level-number may be any integer from 02 to 49, inclusive. 

4. The description of a report group may consist of one, two, or three 
hierarchic levels: 

a. The first entry that describes a report group must be a Format 1 
entry. 

b. Both Format 2 and Format 3 entries may be immediately subordinate 
to a Format 1 entry. 

c. A Format 3 entry may be immediately subordinate to a Format 2 
entry. 

d. Format 3 entries must be elementary. 

5. In a Format 1 entry, data-name-1 is required only when: 

a. A DETAIL report group is referenced by a GENERATE statement. 

b. A DETAIL report group is referenced by the UPON phrase of a SUM 
clause. 

c. A report group is referenced in a USE BEFORE REPORTING statement. 

d. The name of a CONTROL FOOTING report group is used to qualify a 
reference to a sum counter. If specified, data-name-1 may be 
referenced only by a GENERATE statement, the UPON phrase of a SUM 
clause, a USE BEFORE REPORTING sentence, or as a sum counter 
qualifier. 

6. A Format 2 entry must contain at least one optional clause. 

7. In a Format 2 entry, data-name-1 is optional. If present, it may be 
used only to qualify a sum counter reference. 

8. In the Report Section, the USAGE clause is used only to declare the 
usage of printable items. 
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REPORT GROUP SKELETON REPORT GROUP SKELETON 



a. If the USAGE clause appears in a Forr-at ^ entrv. that-- onf-" m,,<5<- 
define a printable item. ' ' "' '" ' ^ "* 

... ^,ie wbnvj- ^.iduse iippears in a j-ormat 1 or Format 2 entrv, at 
least one subordinate entry must define a printable item. 

9. An entry that contains a LINE NUMBER clause must not have a subordinate 
entry that also contains a LINE NUMBER clause. 

10. In Format 3: 

a. A GROUP INDICATE clause may appear only in a TYPE DETAIL report 
group . f V 

b. A SUM clause may appear only in a TYPE CONTROL FOOTING reoort 
group . '^ 

c. An entry that contains a COLUMN NUMBER clause but no LINE NUMBER 
clause must be subordinate to an entry that contains a LINE NUMBER 
clause. 

d. Data-name-1 is optional but may be specified in any entry. 
Data-name-1, however, may be referenced only if the entry defines 
a sura counter. 

e. An enl^ry that contains a SOURCE clause or a VALUE clause must 
also have a COLUMN NUMBER clause. 

11. Table 16-1 shows all permissible clause combinations for a Format 3 
entry. The table is read from left to right along the selected row. 
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Table 16-1. Permissible Clause Combinations in Format 3 Entries 



PIC 


COLUMN 


SOURCE 


SUM 


VALUE 


JUST 


BLANK 

WHEN 

ZERO 


GROUP 
INDICATE 


USAGE 


LIME 
OR 

^:N 


M 






M 












P 


M 


M 




M 






P 




P 


P 


M 


P 


M 






P 




P 


P 


P 


M 


P 


M 








P 


P 


P 


P 


M 


M 






M 


P 




P 


P 


, P 



NOTES: 

1. An 'M' indicates that the presence of the clause is mandatory. 

2. A 'P' indicates that the presence of the clause is permitted, but 
not required. 

3. A blank space indicates that the clause is not permitted. 



General Rule: 



Format 1 is the report group entry. The report group is defined by the 
contents of this entry and all of its subordinate entries. 



Report Group Presentation Rules Tables: 

A separate presentation rules table is given for each of the following 
types of report groups: REPORT HEADING, PAGE HEADING, PAGE FOOTING, and REPORT 
FOOTING. In addition, DETAIL report groups, CONTROL HEADING report groups, and 
CONTROL FOOTING report groups are treated jointly in the Body Group Presentation 
Rules Table. These tables and rules specify: 

1 . The permissible combinations of LINE NUMBER and NEXT GROUP clauses for 
each typ of reprt group 

2. The requirements that are placed on the use of these clauses 

3. The interpretation that the RWCS gives to these clauses 

Columns 1 and 2 of a presentation rules table list all of the permissible 
combinations of LINE NUMBER and NEXT GROUP clauses for the designated report 
group TYPE. Consequently, to identify the set of presentation rules that apply 
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to a particular combination of LINE NUMBER and NEXT GROUP clauses, the presentation 
rules table is read from left to right along the selected row. 

The applicable rules columns of a presentation rules table are partitioned 
into two parts. The first part specifies the rules that apply if the report 
description contains a PAGE clause, and the second part specifies the rules that 
apply if the PAGE clause is omitted. The purpose of the rules named in the 
applicable rules columns is detailed below. 

1. Upper Limit Rules and Lower Limit Rules. These rules specify the 
vertical subdivisions of the page within which the specified report 
group may be presented. 

In the absence of a PAGE clause, the printed report is not considered 
to be partitioned into vertical subdivisions. Consequently, within 
the tables no upper limit rule and lower limit rule is specified for a 
report description in which the PAGE clause is omitted. 

2. Fit Test Rules. The fit test rules are applicable only to body groups, 
and hence fit test rules are specified only within the Body Group 
Presentation Rules Table. At object time, the RWCS applies the fit 
test rules to determine whether the designated body group can be presented 
on the page to which the report is currently positioned. 

However, even for body groups there are no fit test rules when the 
PAGE clause is omitted from the report description entry. 

3. First Print Line Position Rules. The first print line position rules 
specify where on the report medium the RWCS will present the first 
print line of the given report group. 

The presentation rules tables do not specify where on the report medium 

the RWCS will present 1-.h«i SAQTiH anH snl-iaaniionf nx-int- l^na^ f4f „.,,.\ 

of a report group. Certain general rules determine where the second 
and subsequent print lines of a report group will be presented. Refer 
to the LINE NUMBER clause general rules for this information. 

H. Next Group Rules. The next group rules relate to the proper use of 
the NEXT GROUP clause. 

5. Final LINE-COUNTER Setting Rules. The terminal values that the RWCS 
places in LINE-COUNTER after presenting report groups are specified by 
the final LINE-COUNTER setting rules. 



LINE NUMBER Clause Notation: 

Coluian 1 of the presentation rules tables uses a shorthand notation to 
describe the sequence of LINE NUMBER clauses that may appear in the description 
of a report group. The meaning of the abbreviations used In column 1 is as 
follows: 

1. The letter 'A' represents one or more absolute LINE NUMBER clauses, 
none of which have the NEXT PAGE phrase, that appear in consecutive 
order within the sequence of LINE NUMBER clauses in the report group 
description entry. 

2. The letter 'R* represents one or more relative LINE NUMBER clauses 
that appear in consecutive order within the sequence of LINE NUMBER 
clauses In the report group description entry, 
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3. The letters 'NP' represent one or more absolute LINE NUMBER clauses 
that appear in consecutive order within the sequence of LINE NUMBER 
clauses in the report group description entry, with the NEXT PAGE 
phrase appearing in the first, and only in the first, LINE NUMBER 
clause. 

When two abbreviations appear together, they refer to a sequem of LINE 
NUMBER clauses that consists of the two specified consecutive sequer, -s. For 
example, 'AR' refers to a report group description entry within which the 'A' 
sequence (defined in rule 1 above) is immediately followed by the 'R' sequence 
(defined in rule 2 above). 
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LINE NUMBER Clause Sequence Substitutions: 

f^w^ When _'AR' is shown to be a permissible sequence in the presentation rules 
tabies, A' IS also permissible and the same presentation rules are applicable. 

^ Ki ^^^"IJJ^-^' ^^ ^*'°"" *° ^^ ^ permissible sequence in the presentation rules 
caDj.es, hp IS also permissible and the same presentation rules are applicable. 

Saved Next Group Integer Description: 

Rwr^ ^^Itt "^''^ F°^'^. ^"xJ^t^nf ^^ ^ ^^^^ ^^®'" ^*^^t °3" ^^ addressed only by the 
RWCS. When an absolute NEXT GROUP clause specifies a vertical positioning value 
o=^L°^"".° accommodated on the current page, the RWCS stores that value in 
nfvf hoH ^''°"P integer. After page advance processing, the RWCS positions the 
next body group using the value stored in saved next group integer. 

REPORT HEADING Group Presentation Rules: 

^Table 16-2 contains the appropriate pres-entation rules for all permissible 
combinations of LINE NUMBER and NEXT GROUP clauses in a REPORT HEADING report 

1. Upper Limit Rule. The first line number on which the REPORT HEADING 

«??^tL ^'1°"^ ""^"l ^^ presented is the line number specified by the 
HEADING phrase of the PAGE clause. 

2. Lower Limit Rules. 

a. The last line number on which the REPORT WEADING report group can 
be presented is the line number that is obtained by subtracting 

21!^ ill ^^°^ *^® ^^^"® °^ integer-3 of the FIRST DETAIL phrase of 
the PAGE clause. 



b. 



The last line number on which the REPORT HEADING report group can 
be presented is the line number specified by integer-1 of the 
PAGE clause. 



3. First Print Line Position Rules. 

a. The first print line of the REPORT HEADING report group is presented 
«M..i^i^^ ■"■^"^ number specified by the integer of the first LIME 
NUMBER clause that is presented. 

b. The first print line of the REPORT HEADING report group is presented 
?^«^^f,.,}i^^ number obtained by adding the integer of the first 
LINE NUMBER clause that is presented and the value obtained by 
subtracting one (1) from the value of integer-2 of the HEADING 
phrase of the PAGE clause. 

G. The REPORT HEADING report group Is not presented. 
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Table 16-2. REPORT HEADING Group Presentation Rules 







Applicable Rules*** 


** 


If the PAGE clause is specified 


If the PAGE clause 
is omitted 


Sequence of 

LINE NUMBER 

Clauses* 


NEXT GROUP 
Clause 


Upper 
Limit 


Lower 

Limit 


First 
Print 
Line 
Position 


Next 

Group 


Final 
LINE- 
COUNTER 
Setting 


First 
Print 
Line 
Position 


Final 
LINE- 
COUNTER 
Setting 


A R 


Absolute 


1 


2a 


3a 


4a 


5a 


Illegal Combination+ 


A R 


Relative 


1 


2a 


3a 


kh 


5b 


Illegal Combination+ 


A R 


NEXT PAGE 


1 


2b 


3a 


4c 


5c 


Illegal Combination+ 


A R 




1 


2a 


3a 




50 


Illegal Combinatibn+ 


R 


Absolute 


1 


2a 


3b 


4a 


5a 


Illegal Combination++ 


R 


Relative 


1 


2a 


3b 


lib 


5b 


3d 


5b 


R 


NEXT PAGE 


1 


2b 


3b 


4c 


5c 


Illegal Combination++ 


R 




1 


2a 


3b 




5d 


3d 


5d 










3c 




5e 


3c 


5e 



* Refer to the LINE NUMBER Clause Notation for a description of the abbreviations 
used in column 1 . 

** A blank entry in column 1 or column 2 indicates that the named clause is 
totally absent from the report group description entry. 

•** A blank entry in an applicable rules column indicates the absence of the 
named rule for the given combination of LINE NUMBER and NEXT GROUP clauses. 

+ Refer to the LINE NUMBER clause in this section. 

++ Refer to the NEXT GROUP clause in this section. 
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d. The first print line of the REPORT HEADING report group is presented 
on the line number obtained by adding the contents of its LINE-COUNTER 
(in this case, zero) to the integer of the first LINE NUMBER 
clause. 

Next Group Rules. 

a. The NEXT GROUP integer must be greater than the line number on 
which the final print line of the REPORT HEADING report group is 
presented. In addition, the NEXT GROUP Integer must be less than 
the line number specified by the value of integer-3 of the FIRST 
DETAIL phrase of the PAGE clause. 

b. The sura of the NEXT GROUP integer and the line number on which 
the final print line of the REPORT HEADING report group is presented 
must be less than the value of integer-3 of the FIRST DETAIL 
phrase of the PAGE clause. 

c. NEXT GROUP NEXT PAGE signifies that the REPORT HEADING report 
group is to be presented entirely by itself on the first page of 
the report. The RWCS processes no other report group while positioned 
to the first page of the report. 

Final LINE-COUNTER Setting Rules. 

a. After the REPORT HEADING report group is presented, the RWCS places 
the NEXT GROUP integer into LINE-COUNTER as the final LINE-COUNTER 
setting. 

b. After the REPORT HEADING report group is presented, the RWCS places 
the sum of the NEXT GROUP integer and the line number on which 
the final print line of the REPORT HEADING report group was presented 
into LINE-COUNTER as the final LINE-COUNTER setting. 

c. After the REPORT HEADING report group is presented, the RWCS olaces 
zero into LINE-COUNTER as the final LINE-COUNTER setting. 

d. After the REPORT HEADING report group is presented, the final 
LINE-COUNTER setting is the line number on which the final print 
line of the REPORT HEADING report' group was presented. 

e. LINE-COUNTER is unaffected by the processing of a nonprintable 
report group. 
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PAGE HEADING Group Presentation Rules: 

Table 16-3 contains the appropriate presentation rules for all permissible 
combinations of LINE NUMBER and NEXT GROUP clauses in a PAGE HEADING report 
group. 



Table 16-3. PAGE HEADING Group Presentation Rules 







Applicable Rules*** 


«» 


If the PAGE clause is specif ied*»«» 


Sequence of 

LINE NUMBER 

Clauses* 


NEXT GROUP 
Clause 


Upper 
Limit 


Lower 
Limit 


First Print 
Line Position 


Next 
Group 


Final LINE- 
COUNTER 
Setting 


A R 




1 


2 


3a 




Ua 


R 




1 


2 


3b 




4a 










3c 




lb 



* Refer to the LINE NUMBER Clause Notation for a description of the abbreviations 
used in column 1 . 

•• A blank entry in column 1 or column 2 indicates that the named clause is 
totally absent from the report group description entry. 

*•* A blank entry in an applicable rules column indicates the absence of the 
named rule for the given combination of LINE NUMBER and NEXT GROUP clauses. 

**** If the PAGE clause is omitted from the report description entry, then a 
PAGE HEADING report group may not be defined. Refer to the TYPE clause. 



1. Upper Limit Rules. If a REPORT HEADING report group has been presented 
on the page on which the PAGE HEADING report group is to be presented, 
then the first line number on which the PAGE HEADING report group can 
be presented is one greater than the final LINE-COUNTER setting established 
by the REPORT HEADING. 

Otherwise, the first line number on which the PAGE HEADING report 
group can be presented is the line number specified by the HEADING 
phrase of the PAGE clause. 
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2. Lower Limit Rule. The last ^^n^ numhov ^r, ,.,w4«v, 4-i,-s on/- 
report group can be presented is the line number that is obtained by 
subtracting on_e (1) from the value of integer-3 of the FIRST DETAIL 
phrase of the fAGE clause. 

3. First Print Line Position Rules. 



a. The 
o 



he first print line of the PAGE HEADING report group is presented 
n the line number specified by the integer of the first LINE 
NUMBER clause that is presented. 



b. If a REPORT HEADING report group has been presented on the page 
on which the PAGE HEADING report group Is to be presented, then 
the sum of the final LINE-COUNTER setting established by the REPORT 
HEADING report group and the integer of the first LINE NUMBER 
clause that is presented in the PAGE HEADING report group defines 
the line number on which the first print line of the PAGE HEADING 
report group is presented. 

Otherwise, the sum of the integer of the first LINE NUMBER clause 
that IS presented in the PAGE HEADING report group and the value 
obtained by subtracting one (1) from the value of integer-2 of 
the HEADING phrase of the PAGE clause defines the line number on 
which the first print line of the PAGE HEADING report group is 
presented. t- o ^ 

c. The PAGE HEADING report group is not presented. 
Final LINE-COUNTER Setting Rules. 

a. The final LINE-COUNTER setting is the line number on which the 
final print line of the PAGE HEADING report group was presented. 

b. LINE-COUNTER is unaffected by the processing of a nonprintable 



Body Group Presentation Rules: 

Table 16-4 contains the appropriate presentation rules for all permissible 

^nd rnMTPnr%noTT^?."^ ""T'' ^"'^ ^^^'^ ^^°^^ clauses in CONTROL HEADING, DETAIL, 
ana tUNTROL FOOTING report groups. 

1. Upper Limit Rule. The first line number on which a body group can be 

fr^^^'i!^^'^ ^^ ^^^ ^^"® number specified by the FIRST DETAIL phrase of 
the PAGE clause. 
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Table 16-4. Body Group Presentation Rules 







Applicable Rules*** 


«» 


If the PAGE clause is specified 


If the PAGE clause 
i" -emitted 


Sequence of 

LINE NUMBER 

Clauses* 


NEXT GROUP 
Clause 


Upper 
Limit 


Lower 
Limit 


Fit 
Test 


First 
Print 
Line 
Position 


Next 
Group 


Final 
LINE- 
COUNTER 
Setting 


First 
Print 
Line 
Position 


< 

Final 
LINE- 
COUNTER 
Setting 


A R 


Absolute 




2 


3a 


J4a 


5 


6a 


Illegal Combination+ 


A k 


Relative 




2 


3a 


i4a 




^b 


Illegal Combination+ 


A R 


NEXT PAGE 




2 


3a 


4a 




6c 


Illegal Combination+ 


A R 






2 


3a 


4a 




6d 


Illegal Combination+ 


R 


Absolute 




2 


3b 


4b 


5 


6a 


Illegal Combination++ 


R 


Relative 




2 


3b 


4b 




6b 


4d 


6f 


R 


NEXT PAGE 




2 


3b 


4b 




6c 


Illegal Combination++ 


R 






2 


3b 


4b 




6d 


4d 1 


6d 1 


NP R 


Absolute 




2 


3c 


4a 


5 


6a 


Illegal Combination+ 


NP R 


Relative 




2 


3c 


4a 




6b 


Illegal Combination+ 


NP R 


NEXT PAGE 




2 


3c 


4a 




6c 


Illegal Combination+ 


NP R 






2 


3c 


4a 




6d 


Illegal Combination+ 












4c 




6e 


4c 


6e 



* Refer to the LINE NUMBER Clause Notation for a description of the abbreviations 
used in column 1 . 

** A blank entry in column 1 or column 2 indicates that the named clause is 
totally absent from the report group description entry. 

*** A blank entry in an applicable rules column indicates the absence of the 
named rule for the given combination of LINE NUMBER and NEXT GROUP clauses. 

+ Refer to the LINE NUMBER clause in this section. 

++ Refer to the NEXT GROUP clause in this section. 
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2. Lower Limit Rules. The last line number on which a CONTROL HEADING 
report group or DETAIL report group can be presented is the line number- 
specified by the LAST DETAIL phrase of the PAGE clause. 

The last line number on which a CONTROL FOOTING report group can be 
presented is the line number specified by the FOOTING phrase of the 
PAGE clause - 

3. Fit Test Rules. 

a. If the value in LINE-COUNTER is less than the integer of the 
first absolute LINE NUMBER clause, then the body group is presented 
on the page to which the report is currently positioned. 

Otherwise, the RWCS executes page advance processing. After the 
PAGE HEADING report group (if defined) has been processed, the 
RWCS determines whether the saved next group integer location was 
set when the final body group was presented on the preceding 
page. (See Final LINE-COUNTER Setting rule 6a.) If the saved 
next group integer was not so set, the body group is presented on 
the page to which the report is currently positioned. If the 
saved next group Integer was so set, the RWCS moves the saved 
next group integer into LINE-COUNTER, resets the saved next group 
integer to zero, and reapplies fit test rule 3a. 

b. If a body group has been presented on the page to which the 
report is currently positioned, the RWCS computes a trial sum in 
a work location. The trial sum is computed by adding the contents 
of LINE-COUNTER to the integers of all LINE NUMBER clauses of the 
report group. If the trial sum is not greater than the body 
group's lower limit integer, then the report group is presented 
on the current page. If the trial sum exceeds the body group's 
lower limit integer, then the RWCS executes page advance processing. 
After the PAGE HEADING report group (if defined) has been processed, 

«»i^ ttf,\^%^ I -c cnj y J. J. ^ <:> J.J.U UC5U lUJLt; JU. 

If no body group has yet been presented on the page to which the 
report is currently positioned, the RWCS determines whether the 
saved next group integer location was set when the final body 
group was presented on the preceding page. If the saved next 
group integer was not so set, the body group is presented on the 
page to which the report is currently positioned. If the saved 
next group integer was so set, the RWCS moves the saved next 
group integer into LINE-COUNTER, resets the saved next group integer 
to zero, and computes a trial sum in a work location. 

The trial sum is computed by adding the contents of LINE-COUNTER 
to the integer one (1) and the integers of all but the first LINE 
NUMBER clause of the body group. If the trial sum is not greater 
than the body group's lower limit integer, then the body group is 
presented on the current page. If the trial sum exceeds the body 
group's lower limit integer, then the RWCS executes page advance 
processing. After the PAGE HEADING report group (if defined) has 
been processed, the RWCS presents the body group on that page. 
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c. If a body group has been presented on the page to which the 
report is currently positioned, the RWCS executes page advance 
processing. After the PAGE HEADING report group (if defined) has 
been processed, the RWCS reapplies fit test rule 3c. 

If no body group has yet been presented on the page to which the 
report is currently positioned, the RWCS determines whether the 
saved next group integer location was set when the al body 
group was presented on the preceding page. If the s ed next 
group integer was not so set, the body group is presenteo on the 
page to which the report is currently positioned. If the saved 
next group integer was so set, the RWCS moves the saved next 
group integer into LINE-COUNTER and resets the saved next group 
integer to zero. If the value in LINE-COUNTER is less than the 
integer of the first absolute LINE NUMBER clause, the body group 
is presented on the page to which the report is currently positioned. 
Otherwise, the RWCS executes page advance processing. After the 
PAGE HEADING report group (if defined) has been processed, the 
RWCS presents the body group on that page. 

First Print Line Position Rules. 

a. The first print line of the body group is presented on the line 
number specified by the integer of the first LINE NUMBER clause 
that is presented. 

b. If the value in LINE-COUNTER is equal to or greater than the line 
number specified by the FIRST DETAIL phrase of the PAGE clause, 
and if no body group has previously been presented on the page to 
which the report is currently positioned, then the first print 
line of the current body group is presented on the line immediately 
following the line indicated by the value contained in LINE-COUNTER. 

If the value in LINE-COUNTER is equal to or greater than the line 
number specified by the FIRST DETAIL phrase of the PAGE clause, 
and if a body group has previously been presented on the page to 
which the report is currently positioned, then the first print 
line of the current body group is presented on the line that is 
obtained by adding the contents of LINE-COUNTER and the integer 
of the first LINE NUMBER clause that is presented in the current 
body group. 

If the value in LINE-COUNTER is less than the line number specified 
by the FIRST DETAIL phrase of the PAGE clause, then the first 
print line of the body group is presented on the line specified 
by the FIRST DETAIL phrase. 
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c. The body group is not presented. 

d. The sum of the contents of LINE-COUNTER and the Integer of the 
first LINE NUMBER clause that is presented defines the line number 
on which the first print line is presented. 

Next Group Rule. The integer of the absolute NEXT GROUP clause must 
specify a line number that is not less than that specified in the 
FIRST DETAIL phrase of the PAGE clause, and that is not greater than 
that specified in the FOOTING phrase of the PAGE clause. 

Final LINE-COUNTER Setting Rules. 

a. If the body group that has just been presented is a CONTROL FOOTING 
report group and if the CONTROL FOOTING report group is not associated 
with the highest level at which the RWCS detected a control break, 
then the final LINE-COUNTER setting is the line number on which 
the final print line of the CONTROL FOOTING report group was 
presented. 

For all other cases, the RWCS makes a comparison of the line 
number on which the final print line of the body group was presented 
and the integer of the NEXT GROUP clause. If the former is less 
than the latter, then the RWCS places the NEXT GROUP integer into 
LINE-COUNTER as the final LINE-COUNTER setting. If the former is 
equal to or greater than the latter, then the RWCS places the 
line number specified by the FOOTING phrase of the PAGE clause 
into LINE-COUNTER as the final LINE-COUNTER setting; in addition, 
the RWCS places the NEXT GROUP integer into the saved next group 
integer location. 

b. If the body group that has just been presented is a CONTROL FOOTING 
report group, and if the CONTROL FOOTING report group is not 
associated with the highest level at which the RWCS detected a 
control break, then the final LINE-COUNTER setting is the line 
number on which the final print line of the CONTROL FOOTING report 
group was presented. 

For all other cases, the RWCS computes a trial sum in a work 
location. The trial sum is computed by adding the integer of the 
NEXT GROUP clause to the line number on which the final print 
line of the body group was presented. If the sum is less than 
the line number specified by the FOOTING phrase of the PAGE clause, 
then the RWCS places that sum into LINE-COUNTER as the final 
LINE-COUNTER setting. If the sum is equal to or greater than the 
line number specified by the FOOTING phrase of the PAGE clause, 
then the RWCS places the line number specified by the FOOTING 
phrase of the PAGE clause into LINE-COUNTER as the final LINE-COUNTER 
setting. 
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If the body group that has just been presented is a CONTROL FOOTING 
report group, and if the CONTROL FOOTING report group is not 
associated with the highest level at which the RWCS detected a 
control break, then the final LINE-COUNTER setting is the line 
number on which the final print line of the CONTROL FOOTING report 
group was presented. 

For all other cases, the RWCS places the line number specified by 
the FOOTING phrase of the PAGE clause into LINE-COUNTER as the 
final LINE-COUNTER setting. 

The final LINE-COUNTER setting is the line number on which the 
final print line of the body group was presented. 

LINE-COUNTER is unaffected by the processing of a nonprintable 
body group. 

If the body group. that has just been presented is a CONTROL FOOTING 
report group, and if the CONTROL FOOTING report group is not 
associated with the highest level at which the RWCS detected a 
control break, then the final LINE-COUNTER setting is the line 
number on which the final print line of the CONTROL FOOTING report 
group was presented. 

For all other cases, the RWCS places the sum of the line number 

integer into LINE-COUNTER as the final LINE-COUNTER setting. 



PAGE FOOTING Presentation Rules: 



Table 16-5 contains the appropriate presentation rules for all permissible 
combinations of LINE NUMBER and NEXT GROUP clauses in a PAGE FOOTING report 
group. 

1. Upper Limit Rule. The first line number on which the PAGE FOOTING 
report group can be presented is the line number obtained by adding 
one (1) to the value of integer-5 of the FOOTING phrase of the PAGE 
clause. 



7/81 



16-2J» 



ASIIF 



REPORT GROUP SKELETON 



REPORT GROUP SKELETON 



Table 16-5. PAGE FOOTING Presentation Rules 







Applicable Rules*** 




If the PAGE clause is specified**** 


Sequence of 
LINE NUMBER 
Clauses* 


NEXT GROUP 
Clause 


Upper 
Limit 


Lower 
Limit 


First Print 
Line Position 


Next 
Group 


Final LINE- 
COUNTER 
Setting 


A R 


Absolute 


1 


2 


3a 


Ha 


5a 


A R 


Relative 


1 . 


2 


3a 


4b 


5b 


A R 




1 


2 


3a 




5c 










3b 




5d 



* Refer to the LINE NUMBER Clause Notation for a description of the abbreviations 
used m column 1. 

** A blank entry in column 1 or column 2 indicates that the named clause is 
totally absent from the report group description entry. 

*»* A blank entry in an applicable rules column indicates the absence of the 
named rule for the given combination of LINE NUMBER and NEXT GROUP clauses. 

**** If the PAGE clause is omitted from t.h<= ron,^r-f n^ac^-i ,,<-•! ^., -,»4.„,. ti _ 

PAGE FOOTING report group may not be defined. Refer to the TYPE clause. 



2. Lower Limit Rule. The last line number on which the PAGE FOOTING 
report group can be presented is the line number specified by inteeer-l 
of the PAGE clause. 

3. First Print Line Position Rules. 

a. The first print line of the PAGE FOOTING report group is presented 
on the line specified by the integer of the first LINE NUMBER 
clause that is presented. 

b. The PAGE FOOTING report group is not presented. 
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4. Next Group Rules. 

a. The NEXT GROUP integer must be greater than the line number on 
which the final print line of the PAGE FOOTING report group is 
presented. In addition, the NEXT GROUP integer must not be greater 
than the line number specified by integer-1 of the PAGE clause. 

b. The sum of the NEXT GROUP integer and the line number on which 
the final print line of the PAGE FOOTING report group is presented 
must not be greater than the line number specified by integer-1 
of the PAGE clause. 

5. Final LINE-COUNTER Setting Rules. 

a. After the PAGE FOOTING report group is presented, the RWCS places 
the NEXT GROUP integer into LINE-COUNTER as the final LINE-COUNTER 
setting . 

b. After the PAGE FOOTING report group is presented, the RWCS places 
the sum of the NEXT GROUP integer and the line number on which 
the final print line of the PAGE FOOTING report group was presented 
into LINE-COUNTER as the final LINE-COUNTER setting. 

c. After the PAGE FOOTING report group is presented, the final 
LINE-COUNTER setting is the line number on which the final print 
line of the PAGE FOOTING report group was presented. 

d. LINE-COUNTER is unaffected by the processing of a nonprintable 
report group. 



REPORT FOOTING Presentation Rules: 

Table 16-6 contains the appropriate presentation rules for all permissible 
combinations of LINE NUMBER and NEXT GROUP clauses in a REPORT FOOTING report 
group. 

1. Upper Limit Rules. 

a. If a PAGE FOOTING report group has been presented on the page to 
which the report is currently positioned, then the first line 
number on which the REPORT FOOTING report group can be presented 
is one greater than the final LINE-COUNTER setting established by 
the PAGE FOOTING report group. 

Otherwise, the first line number on which the REPORT FOOTING report 
group can be presented is the line number obtained by adding one 
(1) and the value of integer-5 of the PAGE clause. 
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REPORT GROUP SKELETON 



REPORT GROUP SKELETON 



Table 16-6= REPORT FOOTING Presentation Rules 







Applicable Rules*** 1 




If the PAGE clause is specified 


If the PAGE clause 
is omitted 


Sequence of 
LINE NUMBER 
Clauses* 


NEXT GROUP 
Clause 


Upper 
Limit 


Lower 
Limit 


First 
Print 
Line 
Position 


Next 
Group 


Final 
LINE- 
COUNTER 
Setting 


First 
Print 
Line 
Position 


Final 
LINE- 
COUNTER 
Setting 


A R 




la 


2 


3a 




4a 


Illegal Combination+ 


R 




la 


2 


3b 




Ha 


3d 


43 


NP R 




lb 


2 


3c 




Ha 


Illegal Combination+ 










3e 




lb 


3e 


4b 



» Refer to the LINE NUMBER Clause Notation for a description of the abbreviations 
used in column 1 . 

** t ^■'■•f,"'^ entry in column 1 or column 2 indicates that the named clause is 
totally absent from the report group description entry. 

*** A blank entry in an applicable rules column indicates the absence of the 
named rule for the given combination of LINE NUMBER and NEXT GROUP clauses. 

+ Refer to the LINE NUMBER clause in this section. 
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REPORT GROUP SKELETON REPORT GROUP SKELETON 



b. The first line number on which the REPORT FOOTING report group 
can be presented is the line number specified by the HEADING 
phrase of the PAGE clause. 

Lower Limit Rule. The last line number on which the REPORT FOOTING 
report group can be presented is the line number specified by integer-1 
of the PAGE clause. 

First Print Line Position Rules. 

a. The first print line of the REPORT FOOTING report p;roup is presented 
on the line specified by the integer of the first LINE NUMBER 
clause that is presented. 

b. If a PAGE FOOTING report group has been presented on the page to 
which the report is currently positioned, then the sum of the 
final LINE-COUNTER setting established by the PAGE FOOTING report 
group and the integer of the first LIKE NUMBER clause that is 
presented in the REPORT FOOTING report group defines the line 
number on which the first print line of the REPORT FOOTING report 
group is presented. Otherwise, the sum of the integer of the 
first LINE NUMBER clause that is presented in the REPORT FOOTING 
report group, and the line number specified by the value of integer-5 
of the FOOTING phrase of the PAGE clause defines the line number 
on which the first print line of the REPORT FOOTING report group 
13 presented. 

c. The NEXT PAGE phrase in the first absolute LINE NUMBER clause 
that is presented indicates that the REPORT FOOTING report group 
is to be presented on a page on which no other report group has 
been presented. The first print line of the REPORT FOOTING report 
group is presented on the line number specified by the integer of 
the first LINE NUMBER clause that is presented. 

d. The sum of the contents of LINE-COUNTER and the integer of the 
first LINE NUMBER clause that is presented defines the line number 
on which the first print line is presented. 

e. The REPORT FOOTING report group is not presented. 
Final LINE-COUNTER Setting Rules. 

a. The final LINE-COUNTER setting is the line number on which the 
final print line of the REPORT FOOTING report group is presented. 

b. LINE-COUNTER is unaffected by the processing of a nonprintable 
report group. 
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COI^E CODE 



The CODE clause specifies a two-character literal that identifies each print 
line as belonging to a specific report. 



General Format: 

CODE literal-1 

Syntax Rules: 

1. Literal-1 is a two-character nonnumeric literal. 

2. If the CODE clause is specified for any report in a file, it must be 
specified for all reports in the same file. 

General Rules: 

1. When the CODE clause is specified, literal-1 is automatically placed 
in the first two character positions of each Report Writer logical 
record. 

2. The positions occupied by literal-1 are not included in the description 
of the print line, but are included in the logical record size. 
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COLUMN NUMBER COLUMN NUMBER 



The COLUMN NUMBER clause identifies a printable item and specifies the 
column number position of the item on a report line. 



General Format: 
r ; COLUMN NUMBER IS integer-1 ] 

Syntax Rules: 

1. The COLUMN NUMBER clause can only be specified at the elementary level 
within a report group. The COLUMN NUMBER clause, if present, must 
appear in or be subordinate to an entry that contains a LINE NUMBER 
clause. 

2. Within a given print line, the printable items must be defined in 
ascending column number order such that each character defined occupies 
a unique position. 

General Rules: 

1. The COLUMN NUMBER clause indicates that the object of a SOURCE clause 
or the object of a VALUE clause or the sum counter defined by a SUM 
clause is to be presented on the report line. The absence of a COLUMN 
NUMBER clause indicates that the entry is not to be presented on a 
report line. 

2. Integer-1 specifies the column number of the leftmost character position 
of the printable item. 

3. The Report Writer Control System (RWCS) supplies space characters for 

all positions of a print line that are not occupied by printable items. 

it. The first position of the print line is considered to be column number 
1 . 



7 81 16-30 AS44F 



CONTROL 



CONTROL 



The CONTROL clause establishes the levels of the control hierarcbv for th*^ 
report. ., --•j- 



General Format; 



CONTROL IS 



, CONTROLS AREJ 



data-name-1 , data-naHie-2 ... 
^ FINAL [_ , data-name-1 £, data-name-2 1 •••1^ 



Syntax Rules: 



1. 

2. 
3. 



Data-name-1 and data-name-2 must not be defined in the Report Section 
Data-narae-1 and data-name-2 may be qualified but must not be subscripted 
or indexed. ^ 



Each data-name must identify a different data it 



em. 



Data-name-1, data-name-2, ..., must not have a data item subordinate 
to It whose size is variable as defined in the OCCURS clause. 



General Rules: 



The data-names and the word FINAL specify the levels of the control 
hierarchy. FINAL, if specified, is the highest control data-name-1 
is the major control, data-name-2 is , »- 



4 «^4^ Av.*nAf4 



Tu- 1 1. J i ^ ■-- -■" ermediate contr ul, etc. 

ihe last data-name specified is the minor control. 

The execution of the chrondlogical ly first GENERATE statement for a 
given report causes the R¥CS to save the values of all control data 
pcmSo.^^^^^'^^^*^^^ "^^"^ ^^^^ report. On subsequent executions of all 
^f n, Jo statements for that repor*,, control (tata items are tested by 
the ftWCS for a change of value. A change of value' in any control data 
Item causes a control break to occur. The control break is associated 
with the highest level for which a change of value is noted. 

The Report Writer Control System tests for a control break by comparing 
the contents of each control data item with the prior contents saved 
from the execution of the previous GENERATE statement for the same 
report. The RWCS applies the inequality relation test described under 
Relation Condition" in Section VI, as follows: 

a. If the control data item is a numeric data item, the relation 
test is for the comparison of two numeric operands. 

b. If the control data item is an index data item, the relation test 
IS for the comparison of two index data items. 

o. If the control data item is a data item other than that described 
in general rules 3a and 3b above, the relation test is for the 
comparison of two nonnumeric operands. 

Refer to the PROGRAM COLLATING SEQUENCE phrase under "OBJECT-COMPUTER" 
in Section VI for additional information. 
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CONTROL CONTROL 



The FINAL phrase is used when the most inclusive control group in the 
report is not associated with a control data-name. 
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data-name , . 

data-name 



The data-name clause specifies the name of the data being described. 



General Format; 
data-name 

Syntax Rule: 



In the Report Section, a data-name is not required in a data descripti 
entry; the word FILLER must not be used. uescripti 



on 



General Rules: 



1. In the Report Section, data-name must be specified in the following 



cases: 



^' =''rr^i^D!^c^\^"P^"'^ represents a report group to be referred to bv 
a GENERATE statement or a USE statement in the Procedure Division'. 

b. When reference is to be made to the sum counter in the Procedure 
Division or the Report Section. 

°* J'[!®"o,fM ^^^^^^ report group is referenced in the UPON phrase of 
the SUM clause. 

d. When the data-name is reouirprf hn n»-r,,/4Ha <:,... ,. *. -i^oj-.t. 
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GROUP INDICATE GROUP INDICATE 



The GROUP INDICATE clause specifies that the associated printable item is 
presented only on the first occurrence of its report group after a control break 
or page advance. 



General Format; 



GROUP INDICATE 



Syntax Rules: 



The GROUP INDICATE clause may only appear in a DETAIL report group 
entry that defines a printable item. 



General Rules: 



If a GROUP INDICATE clause is specified, it causes the SOURCE or VALUE 
clause to be ignored and spaces to be supplied, except in the following 
cases: 

a. On the first presentation of the DETAIL report group in the report. 

b. On the first presentation of the DETAIL report group after every 
page advance. 

c. On the first presentation of the DETAIL report group after every 
control break. 

If neither a PAGE clause nor a CONTROL clause is specified in the 
report description entry, then a GROUP INDICATE printable item is presented 
the first time its DETAIL is presented after the INITIATE statement is 
executed. Thereafter, spaces are supplied for indicated items with 
SOURCE or VALUE clauses. 
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LINE NUMBER 



The LINE NUMBER clause specifies vertical oositionine infnrm=,ti on r 
report group. ' "■" ' 



ryv T f G 



General Format; 



LINE NUMBER IS 



{integer-1 [^ ON NEXT PAGE 1 "1 
PLUS integer-2 J 



Syntax Rules: 



1. Integer-1 and integer-2 must not exceed three significant digits in 
length. 

Neither integer-1 nor integer-2 may be specified in such a way as to 
cause any line of a report group to be presented outside of the vertical 
^"^i^^nl^S °^ ^^^ P^^® designated for the report group type, as defined 
by the PAGE clause. Integer-2 may be zero. 

^' ^^^^tI,".- I„tnr1>" 7"°''^ ^''°"P description entry, an entry that contains 
a LINE NUMBER clause must not contain a subordinate entry that also 
contains a LINE NUMBER clause. 

3. Within a given report group description entry, all absolute LINE NUMBER 
clauses must precede all relative LINE NUMBER clauses. 

"■ T^Tvc^MUKfn.i^T '"®P°''t gi'oup description entry, successive absolute 
LiNt, NUMBER clauses must specifv Intee^rs i-.Viat. a^-e i" " ooc^v,^,- v,„ «^^«„ 
ine integers need not be consecutiv" 

5. If the PAGE clause is omitted from a given report description entry, 
only relative LINE NUMBER clauses can be specified in any report group 
description entry within that report. ^- e. f 

6. Within a given report group description entry, a NEXT PAGE phrase can 
appear only once and, if present, must be in the first LINE NUMBER 
clause m that report group description entry. 

7. A LINE NUMBER clause with the NEXT PAGE phrase can appear only in the 
description of body groups and in a REPORT FOOTING report group. 

8. Every entry that defines a printable item (see the COLUMN NUMBER clause) 
must either contain a LINE NUMBER clause or be subordinate to an entry 
that contains a LINE NUMBER clause. 

^..v. ix.so uiht HuMBcR Clause speciriea withm a PAGE FOOTING report 
group must be an absolute LINE NUMBER clause. 
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LINE NUMBER LINE NUMBER 



General Rules; 



1 . A LINE NUMBER clause must be specified to establish each print line of 
a report group. 

2. The RWCS effects the vertical positioning specified by a LINE NUMBER 
clause before presenting the print line established by that LINE NUMBER 
clause. 

3. Integer-1 specifies an absolute line number. An absolute line number 
specifies the line number on which the print line is presented. 

4. Integer-2 specifies a relative line number. If a relative LINE NUMBER 
clause is not the first LINE NUMBER clause in the report group description 
entry, then the line number on which its print line is presented is 
determined by calculating the sum of the line number on which the 
previous print line of the report group was presented and integer-2 of 
the relative LINE NUMBER clause. 

If a relative LINE NUMBER clause is the first LINE NUMBER clause in 
the report group description entry, then the line number on which its 
print line is presented is determined by the rules stated in the Report 
Group Presentation Rules Tables in this section. 

5. The NEXT PAGE phrase specifies that the report group is to be presented 
beginning on the indicated line number on a new page. 
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NEXT GROUP 

NEXT GROUP 



pag£ 



The^NEXT GROUP clause specifies information for vertical pos 
.cowing uhe presentation of the last line of a report group. 



itioning of a 



General Format: 



NEXT GROUP IS 



{integer-1 "j 
PLUS integer-2 > 
NEXT PAGE j 



Syntax Rules: 



A report group entry must not contain a NEXT GROUP clause unless the 
description of that report group contains at least one LINE NUMBER 

C J. 3 U S6 • 

length"^'^ ^""^ integer-2 must not exceed three significant digits in 

If the PAGE clause is omitted from the report description entry onlv 

L.?''V-''" 'T ^'°".' °'^"^^ ""^y '^^ specified in any reporT'groip 
description entry within that report. s' "up 

rPA?P?nnSSr'""'^^\°^ ^^^ "^^^ ^^°^^ ^^^"^^ ""^^ "°t be specified in 
a KAOE FOOTING report group. 

The NEXT GROUP clause must not be specified in a REPORT FOOTING reoort 
group or in a PAGE HEADING report group. '^^iiinu report 



General Rules: 



^' n?Lr^rv^°"lu^ °^ ^^^ P^^® specified by the NEXT GROUP clause takes 

ajoears Refer fn%T'f '°\°^ ^^^ "^P°''^ ^roup in which the clause 
appears. Refer to the Report Group Presentation Rules Tables in this 
sect ion . 

2. The vertical positioning information supplied by the NEXT GROUP clause 
Pirp ^r*''' J }^^ ^"^^^ ^^°"8 with information from the TYPE and 
for LINE-CoSntER ""^^"^ '" LINE-COUNTER, to determine a new value 

^' cSNTRm^nn??wr''^^"^\'^ Hnored by the RWCS when it is specified on a 

levl! it SSInh ^^°r r^"P }^^^ ^" ^^ ^ l^^^l °ther than the highest 
level at which a control break is detected. 

n. The NEXT GROUP clause of a body group refers to the next body group to 
be presented, and therefore can affect the location at which the next 
body group is presented. The NEXT GROUP clause of a REPORT HEADING 
^ronn ."f ^^^ ''^1 ^/^^%l ^^^ lo<=ation at which the PAGE HEADING report 
group is presented. The NEXT GROUP clause of a PAGE FOOTING report 
group can affect the location at which the REPORT FOOTING report group 
is presented. o f 
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PAGE 



PAGE 



The PAGE clause defines the length of a page and the vertical subdivisions 
within which report groups are presented. 



General Format; 



PAGE 



IS "J r LINE 1 

I integer-1 J 

ARE J L LINES J 



LIMIT 

LIMITS 
, HEADING integer-2 ]| 
, FIRST DETAIL integer-3 ] 
, LAST DETAIL integer-4 ] 
, FOOTING integer-5 "| 



Syntax Rules: 



1. The HEADING, FIRST DETAIL, LAST DETAIL, and FOOTING phrases may be 
written in any order. 

2. Integer-1 must not exceed three significant digits in length. 

3. Integer-2 must be greater than or equal to one (1). 

4. Integer-3 must be greater than or equal to integer-2. 

5. Integer-4 must be greater than or equal to integer-3. 

6. Integer-5 must be greater than or equal to integer-4. 

7. Integer-1 must be greater than or equal to integer-5. 

8. The following rules indicate the vertical subdivision of the page in 
which each TYPE of report group may appear when the PAGE clause is 
specified. Also, see the Page Regions Table which follows. 

a. A REPORT HEADING report group that is to be presented on a page 
by itself, if defined, must be defined such that it can be presented 
in the vertical subdivision of the page that extends from the 
line number specified by integer-2 to the line number specified 
by integer-1, inclusive. 

A REPORT HEADING report group that is not to be presented on a 
page by itself, if defined, must be defined such that it can be 
presented in the vertical subdivision of the page that extends 
from the line number specified by integer-2 to the line number 
specified by integer-3 minus 1, inclusive. 

b. A PAGE HEADING report group, if defined, must be defined such 
that it can be presented in the vertical subdivision of the page 
that extends from the line number specified by integer-2 to the 
line number specified by integer-3 minus 1, inclusive. 

c. A CONTROL HEADING or DETAIL report group, if defined, must be 
defined such that it can be presented in the vertical subdivision 
of the page that extends from the line number specified by integer-3 
to the line number specified by integer-4, inclusive. 
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PAGE 



PAGE 



d. A CONTROL FOOTING report group, if defined, must be defined such 
that it^can be presented in the vertical subdivision of the page 
..-a. exuenus xrom the line number specified by integer-3 to the 
line number specified by integer-5, inclusive. 

e. A PAGE FOOTING report group, if defined, must be defined such 
l\^ll .''^^ t presented in the vertical subdivision of the page 
that extends from the line number specified by integer-S plus 1 
to the line number specified by integer-1, inclusive. 

f. A REPORT FOOTING report group that is to be presented on a page 
by Itself, If defined, must be defined such that it can be presented 
xn .he vertical subdivision of the page that extends "from the 
line number specified by integer-2 to the line number specified 
by inueger-l, inclusive. 

A REPORT FOOTING report group that is not to be presented on a 
page by itself, if defined, must be defined such that it can be 
frn^fv,^"^ /■" ^''^ vertical subdivision of the page that extends 
from the Line number specified bv integer-5 plus 1 to the line 
number specified by integer-1, inclusive. 

All report groups must be described so that they can be presented on 
boundaries.''' ''''' "'"''" '''''' ' multiline rep'ort group'across paS 



General Rules; 



The vertical format of a report page is established using the integer 
values specified in the PAGE clause. -nceger 

a. Integer-1 defines the size of a report cage bv spec^ruina ^^.q 
number of lines available on each page. ' ' - ^ "j--e> "■. 

^' SpflniMr '"^nf^c"L»^^'"^^ ^^^ ^i^^t li"^ """ber on which a REPORT 
HEADING or PAGE HEADING report group may be presented. 

c. FIRST DETAIL integer-3 defines the first line number on which a 
body group may be presented. REPORT HEADING and PAGE HEADING 

^n«o'^^^H°!^P^-'?^ "°^ ^^ presented on or beyond the line number 
specified by integer-3. 

'^' rSRrPr^lV.^nTvr^^^^':;\ '^^^^"^^ ^^^ ^^^^ 1^"^ """ber on which a 
CONTROL HEADING or DETAIL report group may be presented. 

^' Innlllr i"t^g^'"-5 defines the last line number on which a CONTROL 
cnnTTM^ report group may be presented. PAGE FOOTING and REPORT 
tOOTING report groups must follow the line number specified bv 
integer-5. t- j 

lLn^^r^ Itl^ ''^^"^■\.'^. specified, the following implicit values are 
assumed for any omitted phrases: 

a. If the HEADING phrase is omitted, a value of one (1) is assumed 
I or integer-2. 

b. If the FIRST DETAIL phrase is omitted, a value equal to integer-2 
is given to integer-3. 

c. If the LAST DETAIL and the FOOTING phrases are both omitted, the 
value of mteger-l is given to both lnteger-4 and integer-5. 
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PAGE 



d. If the FOOTING phrase is specified and the LAST DETAIL phrase is 
omitted, the value of integer-5 is given to integer-4. 

e. If the LAST DETAIL phrase is specified and the FOOTING phrase is 
omitted, the value of integer-4 is given to integer-5. 

3. If the PAGE clause is omitted, the report consists of a single page of 
indefinite length. 

4. The presentation rules for each type of report group are contained in 
the Report Group Presentation Rules Tables in this section. 

5. The page regions established by the PAGE cl.:;rse are described in Table 
16-7. 



Table 16-7. Page Regions 



Report Groups That May Be 
Presented in the Region 


First Line Number 
of the Region 


Last Line Number 
of the Region 


REPORT HEADING described with NEXT 
GROUP NEXT PAGE 

REPORT FOOTING described with LINE 
integer-1 NEXT PAGE 


integer-2 


integer-1 


REPORT HEADING not described with 
NEXT GROUP NEXT PAGE 

PAGE HEADING 


integer-2 


integer-3 
minus 1 


CONTROL HEADING 
DETAIL 


integer-3 


integer-4 


CONTROL FOOTING 


integer-3 


integer-5 


PAGE FOOTING 

REPORT FOOTING not described with 
LINE integer-1 NEXT PAGE 


integer-5 
plus 1 


integer-1 
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REPORT REPORT 

The REPORT clause specifiti, the names of reports that make up a report 
le. 



fi 



General Format: 



{ REPORT IS 1 
f report-name-1 I , report-namp-.'- | 
REPORTS ARE J ^ - 



Syntax Rules; 



1. Each report-name specified in a REPORT clause must be the subject of a 
report description entry in the Report Section. The order of appearance 
of the report-names is not significant. 

2. A report-name must appear in only one REPORT clause. 

3. The subject of a file description entry that specifies a REPORT clause 
may only be referred to by the OPEN OUTPUT, OPEN EXTEND, and CLOSE 
statements. 



General Rule: 



The presence of more than one report-name in a REPORT clause indicates that 
the file contains more than one report. 
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SOURCE SOURCE 



The SOURCE clause identifies the sending data item that is moved to an 
associated printable item defined within a report group description entry. 



General Format: 

SOURCE IS identifier-1 

Syntax Rules: 

1. Identifier-1 may be defined in any section of the Data Division. If 
identifier-1 is a Report Section data item, it can only be: 

a. PAGE-COUNTER, or 

b. LINE-COUNTER, or 

c. A sum counter of the report within which the SOURCE clause appears. 

2. Identifier-1 specifies the sending data item of the implicit MOVE statement 
that the RWCS will execute to move identifier-1 to the printable item. 
Identifier-1 must be defined so that it conforms to the rules for 
sending items in the MOVE statement. 

General Rule: 

The RWCS formats the print lines of a report group just prior to presenting 
the report group. (Refer to the TYPE clause.) At this time, the implicit 
MOVE statements specified by SOURCE clauses are executed by the RWCS. 
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SUM 



SUM 



The SUM clause establishes a sum counter and names the data items to be 
summed. 



General Format: 



{_ SUM identifier-1 f, identifier-2 1 ... 

£ UPON data-name-1 j_ , data-name-2 T • • • 1 ) • 

(data-name-3 1 " 
FINAL J _ 



RESET ON 



Syntax Rules: 



1. Identifier-1 and identifler-2 must be defined as numeric data items. 
When defined in the Report Section, identifier-1 and identifier-2 must 
be the names of sum counters. 

If the UPON phrase is omitted, any identifiers in the associated SUM 
clause which are themselves sum counters must be defined either in the 
same report group that contains this SUM clause or in a report group 
which is at a lower level in the control hierarchy of this report. 

If the UPON phrase is specified, any identifiers in the associated SUM 
clause must not be sum counters. 

2. Data-narae-1 and data-name-2 must be the names of DETAIL report groups 
described in the same report as the CONTROL FOOTING report group in 
which the SUM clause appears, Data-name-1 and data-name-2 may be qualified 
by a report-name. 

3. A SUM clause can appear only in the description of a CONTROL FOOTING 
report group. 

H. Data-name-3 must be one of the data-names specified in the CONTROL 
clause for this report. Data-name-3 must not be a lower level control 
than the associated control for the report group in which the RESET 
phrase appears. 

FINAL, if specified in the RESET phrase, must also appear in the CONTROL 
clause for this report. 

5. The highest permissible qualifier of a sum counter is the report-name. 
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SUM SUM 



General Rules: 

1 . The data item that is the subject of the Data Description entry in 
which the SUM clause appears is a sum counter. At object program 
execution, the RWCS adds directly into the sum counter each of the 
values contained in identifier-1 and identif ier-2. This addition is 
performed under the rules of the ADD statement. 

2. Only one sum counter exists for an elementary report entry regardless 
of the number of SUM clauses specified in the elementary report entry. 

3. If the elementary report entry for a printable item contains a SUM 
clause, the sum counter serves as a source data item. The RWCS moves 
the data contained in the sum counter, according to the rules of the 
MOVE statement, to the printable item for presentation. 

4. If a data-name appears as the subject of an elementary report entry 
that contains a SUM clause, the data-name is the name of the sum 
counter; the data-name is not the name of the printable item that the 
entry may also define. 

5. It is permissible for Procedure Division statements to alter the contents 
of sum counters. 

6. Addition of the identifiers into sum counters is performed by the RWCS 
during the execution of GENERATE and TERMINATE statements. The three 
categories of sum counter incrementing are called subtotalling, 
crossfooting, and rolling forward. Subtotalling is accomplished during 
execution of GENERATE statements only, after any control break processing 
but before processing of the DETAIL report group. Crossfooting and 
rolling forward are accomplished during the processing of CONTROL FOOTING 
report groups. 

7. The UPON phrase provides the capability to accomplish selective 
subtotalling for the DETAIL report groups named in the phrase. 

8. The RWCS adds each individual addend into the sum counter at a time 
that depends upon the characteristics of the addend. 

a. When the addend is a sum counter defined in the same CONTROL 
FOOTING report group, then the accumulation of that addend into 
the sura counter is termed crossfooting. 

Crossfooting occurs when a control break takes place and at the 
time the CONTROL FOOTING report group is processed. 

Crossfooting is performed according to the sequence in which sum 
counters are defined within the CONTROL FOOTING report group. 
That is, all crossfooting into the first sum counter defined in 
the CONTROL FOOTING report group is completed, and then all 
crossfooting into the second sum counter defined in the CONTROL 
FOOTING report group is completed. This procedure is repeated 
until all crossfooting operations are completed. 

When one of the addends is the sum counter defined by the Data 
Description entry in which the SUM clause appears, the initial 
value of that sum counter at the time of summation is used in the 
summing operation. 

b. When the addend is a sum counter defined in a lower level CONTROL 
FOOTING report group, then the accumulation of that addend into 
the sum counter is termed rolling forward. A sum counter in a 
loiter level CONTROL FOOTING report gt'oup is rolled forward when a 
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control break occurs and at the time that the lower level CONTROL 
FOOTING report group is processed. 

c. When the addend is not a sum counter, the accumulation into a sum 
counter of such an addend is called subtotalllng. If the SUM 
clause contains the UPON phrase, the addends are subtotalled when 
a GENERATE statement for the designated DETAIL report group is 
executed. If the SUM clause does not contain the UPON phrase, 
the addends which are not sum counters are subtotalled when any 
GENERATE data-name statement is executed for the report in which 
the SUM clause appears, 

9. If two or more of the identifiers specify the same addend, then the 
addend is added into the sum counter as many times as the addend is 
referenced in the SUM clause; It is permissible for two or more of 
the data-names to specify the same DETAIL report group. When a GENERATE 
data-name statement for such a DETAIL report group is given, the 
incrementing occurs repeatedly, as many times as data-name appears in 
the UPON phrase. 

10. For the subtotalling that occurs when a GENERATE report-name statement 
is executed, refer to the GENERATE statement in this section. 

11. In the absence of an explicit RESET phrase, the RWCS will set a sum 
counter to zero when the RWCS is processing the CONTROL FOOTING report 
group within which the sum counter is defined. If an explicit RESET 
phrase is specified, then the RWCS will set the sum counter to zero 
when the RWCS is processing the designated level of the control hierarchy. 
Refer to the TYPE clause. 

Sum counters are initially set to zero by the RWCS during the execution 
of the INITIATE statement for the report containing the sum counter. 
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The TYPE clause specifies the particular type of report group that is described 
by this entry and indicates the time at which the report group is to be processed 
by the Report Writer Control System (RWCS). 



General Format: 



TYPE IS 



data-name- 

FINAL 



'} 



/ REPORT HEADING "t 
\ RH J 

f PAGE HEADING \ 

{ CONTROL HEADING \ f 
CH J\ 

{ DETAIL \ 
DE J 

f CONTROL FOOTING "t f data-name-2 "X 
\ CF J \ FINAL J 

{PAGE FOOTING \ 
m J 

{REPORT FOOTING "X 
RF J 



Syntax Rules: 



RH is an abbreviation for REPORT HEADING. 

PH is an abbreviation for PAGE HEADING. 

CH is an abbreviation for CONTROL HEADING. 

DE is an abbreviation for DETAIL. 

CF is an abbreviation for CONTROL FOOTING. 

PF is an abbreviation for PAGE FOOTING. 

RF is an abbreviation for REPORT FOOTING. 

REPORT HEADING, PAGE HEADING, CONTROL HEADING FINAL, CONTROL FOOTING 
FINAL, PAGE FOOTING, and REPORT FOOTING report groups may each appear 
no more than once in the description of a report. 

PAGE HEADING and PAGE FOOTING report groups may be specified only if a 
PAGE clause is specified in the corresponding report description entry. 

Data-name-1 , data-name-2, and FINAL, if present, must be specified in 
the CONTROL clause of the corresponding report description entry. At 
most, one CONTROL HEADING report group and one CONTROL FOOTING report 
group can be specified for each data-name or FINAL in the CONTROL 
clause of the report description entry. However, neither a CONTROL 
HEADING report group nor a CONTROL FOOTING report group is required 
for a data-name or FINAL specified in the CONTROL clause of the report 
description entry. 
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'" ii?''i°^ ^°°"5,°.' I^^E HEADING, PAGE FOOTING, and REPORT FOOTIMG 



6. 



7. 



a. Group data items containing a control data item. 

b. Data items subordinate to a control data item. 

c. A redefinition or renaming of any part of a control data item. 

JsE's^^a^/it'i?^ T ?^^ ■^°°"''^ ''^^°^^ groups: SOURCE clauses .nd 
UbE statements must not reference control data-names. 

Mv;si'on'''''thl*^L '^'°''~;'"'^ statement is specified in the Procedure 
mJre than on. nFT/rf ^°"'^"2^ "^P""^ description entry must include no 
a% soeo?f^^H rll 1^^°''^ ^''^"P- " "° GENERATE data-name statements 
are specified for such a report, a DETAIL report group is not required. 

The description of a report must include at least one body group. 
General Rules: 

^' cllFlkr^^^rJ ^'"°."P^ ^x7 P'-°<=«=sed by the RWCS as a direct result of 
GENERATE statements. If a report group is other than TYPE DETAIL its 
processing is an automatic RWCS function. ut-iAiL, its 

'■ b'v'tSf Rwr."';?''^ '"'■''' specifies a report group that is processed 

Report TheREPoVHF!DTK^r'.''T'' "" •'*^" ''^^^ ^^P^^^ ^''^"P °f that 
nr^ll' J ^^^°P HEADING report group is processed during the execution 
of the chronologically first GENERATE statement for that report. 

The PAGE HEADING phrase specifies a renort ^rm,n t-h=<- ,• ., „„„„^ u.. 

under"\'h/r.n ' '''"' 7-P^.'"' «^°"P °" ^^°^ pagrof-tharrepo^rexcept 
under the following conditions: 

a. A PAGE HEADING report group is not processed on a page that is to 
report" ToJ ^ ^^^^^"^ HEADING report group or only a REPORT FOOTING 

^' tJ,^^^ HEADING report group is processed as the second report 
tl^?,l °u *^ .P^Se when it is preceded by a REPORT HEADING report 
group that is not to be presented on a page by itself. 

?or'fur\°her'ln?;?°a'^ion''.°"'' '"-«-"^^"°" «"1- -^^"^ - this section 

S%he"X's "!f 'ifhl "h"'" =P««if3« a report group that is processed 
^Lfn.i H ^ ^ beginning of a control group for a designated 

execution .^^."f T' ^", '-'^ ??"^ - -''--' " processed during the 
rpnnrf n • ^he chronologically first GENERATE statement for that 
RW?rH;V«il ^"^ the execution of any GENERATE statement at which the 
u??h ?h» h^ I °^°"'""?^ ^Sf^^' ^"y CONTROL HEADING report groups associated 
with the highest control level of the break and lower levels are processed 



3. 
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5. The DETAIL phrase specifies a report group that is processed by the 
RWCS when a corresponding GENERATE statement is executed. 

6. The CONTROL FOOTING phrase specifies a report group that is processed 
by the RWCS at the end of a control group for a designated control 
data-name. 

In the case of FINAL, the CONTROL FOOTING report group is processed 
only once per report as the last body group of that report. During 
the execution of any GENERATE statement in which the RWCS detects a 
control break, any CONTROL FOOTING report group associated with the 
highest level of the control break or more minor levels is presented. 
All CONTROL FOOTING report groups are presented during the execution 
of the TERMINATE statement if. at least one GEMERATE statement has been 
executed for the report. 

7. The PAGE FOOTING phrase specifies a report group that is processed by 
the RWCS as the last report group on each page except under the following 
conditions: 

a. A PAGE FOOTING report group is not processed on a page that is to 
contain only a REPORT HEADING report group or only a REPORT FOOTING 
report group. 

b. A PAGE FOOTING report group is processed as the second to last 
report group on a page when it is followed by a REPORT FOOTING 
report group that is not to be processed on a page by itself. 

8. The REPORT FOOTING phrase specifies a report group that is processed 
by the RWCS only once per report and as the last report group of that 
report. The REPORT FOOTING report group is processed during the execution 
of a corresponding TERMINATE statement , if at least one GENERATE statement 
has been executed for the report. 

9. The sequence of steps executed by the RWCS when it processes a REPORT 
HEADING, PAGE HEADING, CONTROL HEADING, PAGE FOOTING, or REPORT FOOTING 
report group is described below: 

a. If a USE BEFORE REPORTING procedure that references the data-name 
of the report group is present, the USE procedure is executed. 

b. If a SUPPRESS statement has been executed or if the report group 
is not printable, no further processing is done for the report 
group. 

c. Otherwise, the RWCS formats the print lines and presents the report 
group according to the presentation rules for that type of report 
group. 

10. The sequence of steps executed by the RWCS when it processes a CONTROL 
FOOTING report group is described below. 

The GENERATE rules specify that when a control break occurs, the RWCS 
produces the CONTROL FOOTING report groups beginning at the minor level, 
and proceeding upwards through the level at which the highest control 
break was sensed. In this regard, it should be noted that even though 
no CONTROL FOOTING report group has been defined for a given control 
data-name, the RWCS will still have to execute the step described in 
general rule lOf below if a RESET phrase within the report description 
specifies that control data-name. 
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a. Sum counters are crossfooted; that is, all sum counters defined 
m this report group that are operands of SUM clauses in the same 
report group are added to their sum counters. 

b. Sum counters are rolled forward; that is, all sum counters defined 
m the report group that are operands of SUM clauses in higher 
level CONTROL FOOTING report groups are added to the higher level 
sum counters. 

c. If a USE BEFORE REPORTING procedure that references the data-name 
of the report group is present, the USE procedure is executed. 

d. If a SUPPRESS statement has been executed or if the report group 
is not printable, the RWCS next executes the step described in 
general rule lOf below. 

e. Otherwise, the RWCS formats the print lines and presents the report 
group according to the presentation rules for CONTROL FOOTING 
report groups. 

f. The RWCS then resets those sum counters that are to be reset when 
the RWCS processes this level in the control hierarchy. 

11. The DETAIL report group processing that the RWCS executes in response 
to a GENERATE data-name statement is described in general rules 11a 
through lie. 

When the description of a report includes exactly one DETAIL report 
group, the detail related processing that the RWCS executes in response 
to a GENERATE report-name statement is described in general rules 11a 
through lid. These steps are performed as though a GENERATE data-name 
statement were being executed. 

When the description of a report includes no DETAIL report groups, the 
aetail related processing that the RWCS executes in response to a 
GENERATE report-name statement is described in general rule'^lla. This 
step is performed as though the description of the report included 
exactly one DETAIL report group, and a GENERATE data-name statement 
were being executed. 

a. The RWCS performs any subtotalling that has been designated for 
the DETAIL report group. 

b. If a USE BEFORE REPORTING procedure that refers to the data-name 
of the report group is present, the USE procedure is executed. 

c. ^f 3 SUPPRESS statement has been executed or if the report group 
is not printable, no further processing is done for the report 
group. 

d. If the DETAIL report group is being processed as a result of a 
GENERATE report-name statement, no further processing is done for 
the report group. 

e. Otherwise, the RWCS formats the print lines and presents the report 
group according to the presentation rules for DETAIL report groups. 
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12. When the RWCS is processing a CONTROL HEADING, CONTROL FOOTING, or 
DETAIL report group, as described in general rules 9, 10, and 11, the 
RWCS may have to interrupt the processing of that body group after 
determining that the body group is to be presented, and execute a page 
advance (and process PAGE FOOTING and PAGE HEADING report groups) before 
actually presenting the body group. 

13. During control break processing, the values of control data items that 
the RWCS used to detect a given control break are referred to as prior 
values. 

a. During control break processing of a CONTROL FOOTING report group, 
any references to control data items in a USE procedure or SOURCE 
clause associated with that CONTROL FOOTIMG report group are supplied 
with prior values. 

b. When a TERMINATE statement is executed, the RWCS makes the prior 
control data item values available to SOURCE clause or USE procedure 
references in CONTROL FOOTING and REPORT FOOTING report groups as 
though a control break had been detected in the highest control 
data-name . 

c. All other data item references within report groups and their USE 
procedures access the current values that are contained within 
the data items at the time the report group is processed. 
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PROCEDURE DIVISION FOR THE REPORT WRITER 

The GENERATE statement directs the RWCS to produce a report in accordance 
with the report description that was specified in the Report Section" oFthe^Data 
Division. 



General Format: 



GENERATE 



Syntax Rules: 



{data-name "1 
report-name J 



1. The data-name must name a TYPE DETAIL report group and may be qualified 
by a report-name. 

2. Report-name may be used only if the referenced report description contains 
all of the following: 

a. A CONTROL clause 

b. Not more than one DETAIL report group 

c. At least one body group 



uenerai nuies: 



In response to a GENERATE report-name statement, the RWCS performs 
summary processing. If all of the GENERATE statements that are executed 
for a report are of the form GENERATE report-name, the report that is 
produced is called a summary report. A summary report is one in which 
no DETAIL report group is presented. 

In response to a GENERATE data-name statement, the RWCS performs detail 
processing that includes specific processing for the DETAIL report 
group designated by the GENERATE statement. Normally, the execution 
of a GENERATE data-name statement causes the RWCS to present the designated 
DETAIL report group. 

During the execution of the chronologically first GENERATE statement 
for a given report, the RWCS saves the values within the control data 
items. During the execution of the second and subsequent GENERATE 
statements for the same report, and lintil a control break is detected, 
the RWCS utilizes this set of control values to determine whether a 
control break has occurred. When a control break occurs, the RWCS 
saves the new set of control values, which it thereafter uses to sense 
for a control break until another control break occurs. 
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1. During report presentation, an automatic function of the RWCS is to 
process PAGE HEADING and PAGE FOOTING report groups, if defined, when 
the RWCS must advance the report to a new page in order to present a 
body group. Refer to the Report Group Presentation Rules Tables in 
this section. 

5. When the chronologically first GENERATE statement for a given report 
is executed, the RWCS processes (in order) the report groups that are 
named below, provided that such report groups are defined within the 
report description. The RWCS also processes PAGE HEADING and PAGE 
FOOTING report groups as described in general rule >i . Refer to the 
TYPE clause for a description of the actions taken by the RWCS when it 
processes each type of report group. 

a. The REPORT HEADING report group is processed. 

b. The PAGE HEADING report group is processed. 

c. All CONTROL HEADING report groups are processed from major to 
minor . 

d. If a GENERATE data-name statement is being executed, the processing 
for the designated DETAIL report group is performed. If a GENERATE 
report-name statement is being executed, certain steps that are 
involved in the processing of a DETAIL report group are performed. 

6. When a GENERATE statement other than the chronologically first is executed 
for a given report, the RWCS performs the steps enumerated below, as 
applicable. The RWCS also processes PAGE HEADING and PAGE FOOTING 
report groups as described in general rule 4. Refer to the TYPE clause 
for a description of the actions taken by the RWCS when it processes 
each type of report group. 

a. Sense for control break. The rules for determining the equality 
of control data items are the same as those specified for relation 
conditions. If a control break has occurred, then: 

• Enable the CONTROL FOOTING USE procedures and CONTROL FOOTING 
SOURCE clauses to access the control data item values that 
are given in the description of the TYPE clause. 

• Process the CONTROL FOOTING report groups in the order minor 
to major. Only CONTROL FOOTING report groups that are not 
more major than the highest level at which a control break 
occurred are processed. 

• Process the CONTROL HEADING report groups in the order major 
to minor. Only the CONTROL HEADING report groups that are 
not more major than the highest level at which a control 
break occurred are processed. 

b. If a GENERATE data-name statement is being executed, process the 
designated DETAIL report group. If a GENERATE report-name statement 
is being executed, certain of the steps that are involved in the 
processing of a DETAIL report group are performed. 

7. GENERATE statements for a report can be executed only after an INITIATE 
statement for the report has been executed and before a TERMINATE 
statement for the report has been executed. 
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The INITIATE statement causes the Report Writer Control System (RWCS) to 
begin Drocessing a reoort, 



General Format: 

INITIATE report-name-1 j", report-name-2 J ... 

Syntax Rule: 

Each report-name must be defined by a report description entry in the Report 
Section of the Data Division. 

General Rules: 

1 . The INITIATE statement performs the following initialization functions 
for each named report: 

a. All sum counters are set to zero. 

b. LINE-COUNTER is set to zero. 

c. PAGE-COUNTER is set to one (1). 

2. The INITIATE statement does not open the file with which the report is 
associated. Therefore, an OPEN statement with either the OUTPUT phrase 
or the EXTEND phrase for the file must be executed prior to the execution 

/-*-f <-V,« TITTTTATC ^ t. ^ t. 4. 

3- A subsequent INITIATE statement for a particular report-name must not 
be executed unless an intervening TERMINATE statement has been executed 
for that report-name. 

^i . If more than one report-name is specified in an INITIATE statement, 
the result of executing this INITIATE statement is the same as if a 
separate INITIATE statement had been written for each report-name in 
the same order as specified in the INITIATE statement. 
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The SUPPRESS statement causes the Report Writer Control System (RWCS) to 
Inhibit the presentation of a report group. 



General Format: 

SUPPRESS PRINTING 

Syntax Rule: 

The SUPPRESS statement may only appear in a USE BEFORE REPORTING procedure. 

General Rules: 

1. The SUPPRESS statement inhibits presentation only for the report group 
named in the USE procedure within which the SUPPRESS statement appears. 

2. The SUPPRESS statement must be executed each time the presentation of 
the report group is to be inhibited. 

3. When the SUPPRESS statement is executed, the RWCS is instructed to 
inhibit processing the following report group functions: 

a. The presentation of the print lines of the report group. 

b. The processing of all LINE clauses in the report group. 

c. The processing of the NEXT GROUP clause in the report group. 

d. The adjustment of LINE-COUNTER. 
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TERMINATE 

TERMINATE 



=on,pli;: IrlollslL't^e^^^^^ "^^^- ^-^-^ ^y^ten, (RWCS) to 



- J»r V^l I^U . 



General Format: 

TERMINATE report-name-! £ , report-name-2 1 



Syntax Rule: 



e^n\%7„^T.Vrp\A'rctl"o„%rt":j"„\Ya'A'.VAT^^^ ""' ^'^'"-^ ^' - «" 



General Rules: 



FOOTTlr'^^^Ilf^. ^^^*^^'"^"5 '^^"ses the RWCS to produce all the CONTROL 
Irnll T P *.u^'"°."i'^ beginning with the minor CONTROL FOOTING report 
maSes'the Trior ret'nf°'' !''°J'^% ^^-^^^^ ^-"""P ^^ Produced The Iwcs 

SS??N^^ nrRrPOrT%°o;TTNG^?oU^C^^cire:\^"J^olE^ 
a control break had been sensed in the most major 'control data-name"^ 

Jntl° ^,^^^^\ATE statements have been executed for a report during the 
sSatemeit fn^Tv,'.^" execution of an INITIATE statement "^and a TERMINAT? 
?WCS tonroin^ ^^ ''^^°:^' ^^^ TERMINATE statement does not cause the 
RWCS to produce any report groups or perform any of the related processing 

During report presentation, an automatic function of the RWC^ is tn 

threes must"''f '"^/'^' '°°"'^ ^^P^'-t groups, if def^ne^d When 
the RWCS must advance the report to a new page for the Duroose of 

?able%"1n\h%rt^fL°„"'- '^'^^ '° ''^ Heport Uup Pres\^\aS° R^lel 

TERM^P-^I^If ^t^tement cannot be executed for a report unless the 
Jo^ that renoT"LH''/^'°"v.°^°u^^°"^^y preceded by an INITIATE statement 
executed, "° TERMINATE statement has yet been 

5. If more than one report-name is specified in a TERMINATE statement 

epar^te TER^MTN^Tr^Vl^ ''t TERMINATE statement is the sLe as f^ a 
separate TERMINATE statement had been written for each report-name in 
the same order as specified in the TERMINATE statement. 

6. The TERMINATE statement does not close the file with which the r-e^^..^- 
rJp??rin'r f'ile th°f .=^^>--^ fP'- the file must be ex-ecuteS? ' Eve;.; 
before a CLOSE st.tMn'f' ■'" ^" ^l^^}^te<i condition must be terminated 
oeiore a 0LOi)E statement is executed for that file. 



i\. 
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The USE BEFORE REPORTING statement specifies Procedure Division statements 
that are executed just before a report group named in the Report Section of the 
Data Division is produced. 



General Format: 

USE BEFORE REPORTING data-name. 



Syntax Rules: 



1. A USE statement, when present, must immediately follow a section header 
in the declarative section and must be followed by a period followed 
by a space. The remainder of the section must consist of zero, one, 
or more procedural paragraphs that define the procedures to be used. 

2. Data-name, which may be qualified, represents a report group and must 
not appear in more than one USE statement. 

The GENERATE, INITIATE, or TERMINATE statements must not appear in a 
paragraph within a USE BEFORE REPORTING procedure. 

A USE BEFORE REPORTING procedure must not alter the value of any control 
data item. 

3. The USE statement itself is never executed; it merely defines the 
conditions calling for the execution of the USE procedures. 



General Rules: 



1 . The designated procedures are executed by the RWCS just before the 
named report group is produced. Refer to the TYPE clause. 

2. Within a USE procedure, no reference must be made to any nondeclarative 
procedures. Conversely, in the nondeclarative portion, no reference 
must be made to procedure-names that appear In the declarative portion, 
except that PERFORM statements may refer to a USE BEFORE REPORTING 
statement or to the procedures associated with such a USE statement. 
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RESERVED WORDS 



not »Ppe*a71„The%f«V?-.T'aa''lLrUl„"^"'' '" ™«»i; '»""- program, but „„3t 
indicated i„ tha .an'irTTo'./at^r^V'/e^r tTel" f r\'L'.,'/d\'o^.r,'/e.°°'' " 



1. Key Words 

2. Optional Words 

3. Connectives 

'i. Special Registers 



5. 
6. 
7. 



Figurative Constants 
Special-Character Words 
System-Names 



s are: 

- Words whose presence are required when the 
format in which the words appear are used 
m a source program. 

- Within each format, uppercase words that 
are not underlined are called optional words 
and may be specified at the discretion of 
the user. 

- Qualifier connectives (OF, IN); series 
connectives (separator comma or separator 
semicolon); and logical connectives (AND, 

- Certain reserved words used to name and 
reference special registers (areas used to 
store data produced in conjunction with 
specific COBOL features). 

Certain reserved words used to name and 
reference specific constant values. 

- The arithmetic operators and relation 
characters. 

- Names that refer to specific features of 
cne System-Names hardware/software 
environment. 



For additional information con 



and Appendix B 



cerning reserved words, refer to Section II 



comput'e^%'oVh°er ^hln Ihe'lerTe's 'etliTel^'lV^lu^t' ''^' 'r ^^^^^^^<^ ^^ "-^^-^^ 
to help the v-ssr avoid orobl ems wLn ntin. ""^*^^^ systems. They are included 
COBOL with COBOL <^o^;i\^;s'\To\,t'\ol'J,l\^^^^^^ ^- "'^^tics 
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( 
) 



/ 
< 



ACCEPT 

ACCESS 

ADD 

ADDRESS 

ADVANCING 

AFTER 

AGGREGATE 

ALL 

ALPHABET 

ALPHABETIC 

ALPHANUMERIC 

ALPHANUMERIC-EDITED 

ALSO 

ALTER 

ALTERING 

ALTERNATE 

AND 

ANY 

APPLY 

ARE 

AREA 

AREAS 

ASCENDING 

ASSIGN 

AT 

ATTACH 

ATTACH-OPTIONS 

AUTHOR 



BECOMES 

BEFORE 

BEGINNING 

BIT 

BITS 

BLANK 

BLOCK 

BOOLEAN 

BOTTOM 

BY 



CALL 

CANCEL 

CATALOG-NAME 

CATALOG-NAMES 

CATALOGUE -NAME 

CATALOGUE-NAMES 

CATALOGUED 

CD 

CF 

CH 

CHAR 

CHARACTER 

CHARACTERS 



CHECK 

CLOCK-UNITS 

CLOSE 

COBOL 

CODE 

CODE -SET 

COLLATING 

COLUMN 

COMMA 

COMMUNICATION 

COMP 

COMP-1 

COMP-2 

COMP-3 
COMP -4 

COMP-5 

COMP-6 

COMP-7 

COMP-8 

COM PL 

COMPLEMENTARY 

COMPUTATIONAL 

COMPUTATIONAL-1 

COMPUTATIONAL-2 

COMPUTATIONAL-3 

COMPUTATIONAL-4 

COMPUTATIONAL-5 

COMPUTATIONAL-6 

COMPUTATIONAL-? 

COMPUTATIONAL-8 

COMPUTE 

CONCURRENT 

CONFIGURATION 

CONNECT 

CONSTANT 

CONTAINS 

CONTROL 

CONTROLS 

CONVERSION 

COPIES 

COPY 

CORR 

CORRESPONDING 

COUNT 

CS-BASIC 

CS-GENERAL 

CURRENCY 

CURRENT 



DATA 

DATE 

DATE -COMPILED 

DATE -WRITTEN 

DAY 

DAY-OF-WEEK 

DB 

DB-EXCEPTION 

DB-KEY 

DB-PRIVACY-KEY 

DB -REALM -NAME 

DB -RECORD-NAME 

DB -SET-NAME 

DB-STATUS 

DE 

DEBUG-COMTENTS 

DEBUG-ITEM 

DEBUG-LINE 

DEBUG-NAME 



DEBUG-NUMERIC -CONTENTS 

DEBUG-SUB-1 

DEBUG-SUB-2 

DEBUG-SUB-3 

DEBUGGING 

DECIMAL-POINT 

DECLARATIVES 

DEFAULT 

DELETE 

DELIMITED 

DELIMITER 

DENSITY 

DEPENDING 

DESCENDING 

DESCRIPTORS 

DESTINATION 

DETACH 

DETAIL 

DEVICE 

DIRECT-REFERENCE 

DISABLE 

DISCONNECT 

DISPLAY 

DIVIDE 

DIVISION 

DOWN 

DUPLICATE 

DUPLICATES 

DYNAMIC 



EGI 

ELSE 

EMI 

EMPTY 

ENABLE 

END 

END-ADD 

END-CALL 

END-COMPUTE 

END-DELETE 

END-DIVIDE 

END-EVALUATE 

END-IF 

END-MULTIPLY 

END-OF-PAGE 

END-PERFORM 

END-READ 

END-RECEIVE 

END-RETURN 

END-REWRITE 

END-SEARCH 

END-START 

END-STRING 

END-SUBTRACT 

END-UNSTRING 

END-WRITE 

ENDING 

ENTER 

ENVIRONMENT 

EOP 

EQUAL 

EQUALS 

ERASE 

ERROR 

ESI 

EVALUATE 

EVERY 

EXAMINE 



EXCEEDS 

EXCEPTION 

EXCLUSIVE 

EXIT 

EXT 

EXTEND 

EXTERNAL 



FD 

FILE 

FILE-CONTROL 

FILES 

FILLER 

FINAL 

FIND 

FINISH 

FIRST 

FOOTING 

FOR 

FORMAT 

FROM 



GENERATE 

GENERATION 

GET 

GIVING 

GO 

GREATER 



HEADING 
HIGH-VALUE 
HIGH -VALUES 



I-O 

I-O -CONTROL 

IDENTIFICATION 

IF 

IN 

INCLUDING 

INDEX 

INDEXED 

INDICATE 

INITIAL 

INITIALIZE 

INITIATE 

INPUT 

IN PUT -OUT PUT 

INSIDE 

INSPECT 

INSTALLATION 

INTERCHANGE 

INTO 

INVALID 

INVOKING 

IS 



JUST 
JUSTIFIED 



KEY 

KEY-LOCATION 

KEYED 
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LABEL 

LAST 

LEADING 

LEFT 

LENGTH 

LESS 

LIMIT 

LIMITS 

LINAGE 

LINAGE -COUNTER 

LINE 

LINE-COUNTER 

LINES 

LINKAGE 

LOCALLY 

LOCK 

LOCKS 

LOW-VALUE 

LOW-VALUES 



MAXIMUM 

MEMBER 

MEMBERS 

MEMBERSHIP 

MEMORY 

MERGE 

MESSAGE 

MODE 

MODIFICATION 

MODIFY 

MODULES 

MOVE 

MULTIPLE 

MULTIPLY 



NATIVE 

NEGATIVE 

NEXT 

NO 

NOT 

NULL 

NUMBER 

NUMERIC 

NUMERIC-EDITED 



OBJECT 

OBJECT-COMPUTER 

OBJECT-PROGRAM 

OCCURS 

OF 

OFF 

OMITTED 

ON 

ONLY 

OPEN 

OPERATIONAL 

OPTIONAL 

OR 

ORDER 

ORGANIZATION 

OTHER 

OUTPUT 



OUTPUT MODE 


RESERVE 


OVERFLOW 


RESET 


OWNER 


RETAIN 




RETAINING 




RETRIEVAL 


PADDING 


RETURN 


PAGE 


REVERSED 


PAGE -COUNTER 


REWIND 


PATH 


REWRITE 


PERFORM 


RF 


PERMANENT 


RH 


PF 


RIGHT 


PH 


ROUNDED 


PIC 


RUN 


PICTURE 




PLUS 




POINTER 


SA 


POSITION 


SAME 


POSITIVE 


SCALAR 


PREATTACHED 


SD 


PREFIX 


SEARCH 


PRINT 


SECONDARY 


PRINTING 


SECTION 


PRIOR 


SECURITY 


PROCEDURE 


SEGMENT 


PROCEDURES 


SEGMENT -LIMIT 


PROCEED 


SELECT 


PROGRAM 


SELECTION 


PROGRAM-ID 


SEND 


PURGE 


SENTENCE 




SEPARATE 




SEQUENCE 


QUEUE 


SEQUENTIAL 


QUOTE 


SET 


QUOTES 


SETS 




SIGN 




SIZE 


RANDOM 


SORT 


RD 


SORT-MERGE 


READ 


SOURCE 


READY 


SOURCE-COMPUTER 


REALM 


SPACE 


REALM-ID 


SPACES 


REALM -NAME 


SPANNED 


REALMS 


SPECIAL-NAMES 


RECEIVE 


SS 


RECORD 


SSF 


RECORD-NAME 


STANDARD 


RECORDING 


STANDARD-1 


RECORDS 


STANDARD-2 


REDEFINES 


START 


REEL 


STATION 


REFERENCES 


STATUS 


RELATIVE 


STOP 


RELEASE 


STORE 


REMAINDER 


STREAM 


REMOVAL 


STRING 


RENAMES 


SUB-QUEUE-1 


REPLACE 


SUB-QUEUE-2 


REPLACEMENT 


SUB-QUEUE-3 


REPLACING 


SUB-SCHEMA 


REPORT 


SUBSTITUTE 


REPORTING 


SUBSTITUTION 


REPORTS 


SUBTRACT 


RERUN 


SUM 



SUPERVISOR 

SUPPRESS 

SUSPEND 

SYMBOLIC 

SYNC 

SYNCHRONIZED 

SYSTEM 



TABLE 

TALLY 

TALLYING 

TAPE 

TAPE -OPT IONS 

TEMP 

TEMPORARY 

TENANT 

TERMINAL 

TERMINATE 

TEXT 

THAN 

THEN 

THROUGH 

THRU 

TIME 

TIMES 

TITLE 

TO 

TOP 

TRAILING 

TRANSFORM 

TYPE 



UNEQUAL 

UNIT 

UNSTRING 

UNTIL 

UP 

uruft it 

UPON 

USAGE 

USAGE -MODE 
USE 
USING 



VALUE 

VALUES 

VARYING 

VIA 

VIRTUAL 



WHEN 

WITH 

WITHIN 

WORDS 

WORKING-STORAGE 

WRITE 



ZERO 

ZEROES 

ZEROS 
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APPENDIX B 
GLOSSARY 



as usi5''*'i'n^?h?,''°"^^^"? ^r™' ^^^^ ^'•^ defined in accordance with their meaning 
-^anJng iJ^ot'Ser Un^uages^^^'''''"^ ""'^'^^ '°^' «"^ -^ -^ ^-* ^^« "- 

These definitions are intended for either reference material nr 
i!;5s°ma^u^7 ■"?H"'"'r' '° ^^ '•*'^'**'"' P'-^°'- ^° '•««<*i"8 the pr^ceSIng Sections ?n 
Se'i:iJe%"":Jntac2rcl[°;::ies'^ definitions are generally brief and dS not include 

Abbreviated Combined Re lation Condition . The combined condition that 
results from the explicit omission of a common subject, or a common subject 
and common relational operator, in a consecutive sequence of relation 
conditions. 

Access Mode. The manner in which records are to be operated upon within a 

Actual Decimal Point. The physical representation, using either of the 
vSCxmsx point characters period (.) or comma (,), of the decimal point 
position in a data item. 



e 

or 



Alphabet-Name. A user-defined word in the SPECIAL-NAMES paragraph of th 
Environment Division that assigns a name to a specific character set and/o 
collating sequence. 

Alphabetic Character . A character that belongs to the following set of 

both uppercase and lowercase letters: A, B, C, D, E, F. G. H. I J K L 

M, N, 0, P. Q, R, S, T, U, V, W, X. Y, Z; a. b, c, d, e, f, g, h. i) j,' k! 
1, m, n, 0, p, q, r, s, t, u, v, w, x, y, z, and the space. 

Alphanumeric Character . Any character in the ASCII character set. 

Arithmetic Expression . An identifier or a numeric elementary item, a 
numeric literal, such Identifiers and literals separated by arithmetic 
operators, two arithsietlo expressions separated by an arithmetic operator, 
or an arithmetic expression enclosed in parentheses. 

Arithmetic Operation . The process caused by the execution of an arithmetic 
statement, or the evaluation of an arithmetic expression, that results in a 
mathematically correct solution to the arguments presented. 
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Arithmetic Operator . A single character, or a fixed two-character 
combination, that belongs to the following set; 

Character Meaning 

■•■ Addition 

Subtraction 
• Multiplication 
/ Division 
•• Exponentiation 

A scending Key . A key upon the values of which data is ordered, starting 
with the lowest value of key up to the highest value of key, in accordance 
with the rules for comparing data items. 

Assumed Decimal Point . A decimal point position that does not involve the 
existence of an actual character in a data item. The assumed decimal point 
has logical meaning but no physical representation. 

AT END Condition . A condition caused: 

1. During the execution of a READ statement for a sequentially 
accessed file. 

2. During the execution of a RETURN statement, when no next logical 
record exists for the associated sort file. 

3. During the execution of a SEARCH statement, when the search 
operation terminates without satisfying the condition specified 
in any of the associated WHEN phrases. 

Bit . The smallest unit in a computer's storage structure capable of 
representing two distinct alternatives. 



Block . A physical unit of data that is normally composed of one or more 
logical records. For random mass storage files, a block may contain a 
portion of a logical record. The size of a block has no direct 
relationship to the size of the file within which the block is contained or 
to the size of the logical records that are either continued within the 
block or that overlap the block. The term is synonymous with physical 



record 



Called Program . A program that is the object of a CALL statement combined 
at object time with the calling program to produce a run unit= 

Calling Program . A program that executes a CALL to another program. 

CD-Name . A user-defined word that names a CMCS interface area described in 
a communication description entry within the Communication Section of the 
Data Division. 

Character . The basic indivisible unit of the language. 

Character Data Item . A data item consisting entirely of Standard Data 
Format characters. 

Character Position . Amount of physical storage required to store a single 
standard data format character described with usage DISPLAY. 

Character -String . A sequence of contiguous characters that form a COBOL 
word, a literalT a PICTURE character-string, or a comment-entry. 

Class Condition . The proposition, for which a truth value ^a" be 
determined, tha t the content of an item is wholly alphabetic or is wholly 
numeric. 
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Clause. An ordered set of consecutive COBOL character-strings whose 
purpose is to specify an attribute of an entry. 

CMCS. (See COBOL Message Control System.) | 

COBOL Character Set . The complete COBOL character set consisting o*" t*«* 85 
characters listed be low : 



Character 


Meaning 


0,1... 


-,9 


Digit 


A,B, . . 


.,z 


Uppercase letter 


a,b, . . 


.,z 


Lowercase letter 
Space (blank) 


+ 




Plus sign 


- 




Minus sign (hyphen) 


• 




Asterisk 


/ 




Stroke (virgule, slash) 


= 




Equal sign 


$ 




Currency sign 


f 




Comma (decimal point) 


t 




Semicolon 


. 




Period (decimal point, full stop) 


n 




Quotation mark 


( 




Left parenthesis 


) 




Right parenthesis 


> 




Greater than symbol 


< 




Less than symbol 


1 




Exclamation point 


« 




Kuraber sign 


% 




Percent 


& 




Ampersand 


• 




Apostrophe 


• 




Colon 


? 




Question mark 


i 




Commercial at 



NOTE: Certain of the characters comprising the COBOL character set may not 
be graphically represented in definitions of National and 
International Standard character sets. In these instances, a 
substitute graphic may be specified to replace the characters not 
represented. 

COBOL Message Control System (CMCS) . The Multics title for the Message 
Control System In COBOL. The different naming convention is used to 
distinguish it from other Multics software (Multics Communication System, 
MCS). 

COBOL Word . (See Word) 

Collating Sequencs . The sequence in which the characters that are 
acceptable in a computer are ordered for purposes of sorting, merging, and 
comparing. 

Combined Condition . A condition that is the result of connecting two or 
more conditions with the AMD or the OR logical operator. 

Comment-Entry . An entry in the Identification Division that may be any 
combination of characters from the host computer's character set. 

Comment Line . A source program line represented by an asterisk in the 
indicator area of the line and any characters from the host computer's 
character set in area A and area B of that line. The comment line serves 
only for documentation in a program. A special form of comment line 
represented by a stroke (/) in the indicator area of the line, and by any 
characters in area A and area B of t'lat line, causes page ejection prior to 
printing the comment. 
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Communication Description Entry . An entry in the Communication Section of 
the Data Division that is composed of the level indicator CD, followed by a 
cd-name, and then followed by a set of clauses as required. It describes 
the interface between the COBOL Message Control System (CMCS) and the COBOL 
program. 

Communication Device . A mechanism (hardware or hardware/software) capable 
of sending data to a queue and/or receiving data from a queue. This 
mechanism may be a computer or a peripheral device. One or more programs 
containing communication description entries and residing within the same 
computer define one or more of these mechanisms. 

Communication Section . The section of the Data Division that describes the 
interface areas between the CMCS and the program, composed of one or more 
CD deJicription entries. 

Compilation Activity . The activity (subdivision of a job) during which the 
source program is being compiled. 

Compile Time . The time at which a COBOL source program is translated, by a 
COBOL compiler, to a COBOL object program. 

Compiler-Directing Statement . A statement, beginning with a compiler 
directing verb, that causes the compiler to take a specific action during 
compilation. 

Complex Condition . A condition in which one or more logical operators act 
upon one or more conditions. (See Negated Simple Condition, Combined 
Condition, Negated Combined Condition.) 

Computer-Name . A system-name that identifies the computer upon which the 
program is to be compiled or run. 

Condition . A status of a program at execution time for which a truth value 
can be determined. Where the term "condition" (condition-1 , condition-2, 
...) appears in these language specifications in or in reference to 
"condition" (condition-1, condition-2, ...) of a general format, it is a 
conditional expression consisting of either a simple condition optionally 
parenthesized or a combined condition consisting of the syntactically 
correct combination of simple conditions, logical operators, and 
parentheses, for which a truth value can be determined. 

Condition-Name . A user-defined word assigned to a specific value, set of 
values, or range of values within the complete set of values that a 
conditional variable may possess; or the user-defined word assigned to a 
status of a switch or device. 

Condition-Name Condition . The proposition, for which a truth value can be 
determined, that the value of a conditional variable is a member of the set 
of values attributed to a condition-name associated with the conditional 
variable. 

Conditional Expression . A simple condition or a complex condition 
specified in an IF, PERFORM, or SEARCH statement. (See Simple Condition 
and Complex Condition.) 

Conditional Statement . A statement specifying that the truth value of a 
condition is to be determined and that the subsequent action of the object 
program is dependent on this truth value. 

Conditional Variable . A data item, one or more values of which has a 
condition-name assigned to it. 

Configuration Section . A section of the Environment Division that 
describes overall specifications of source and object computers. 
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Connective . A reserved word that is used to: 

1. Associate a data-name, paragraph-name, condition-name, or 
text-name with its qualifier. 

2. Link two or more operands written in a series. 

3. Form conditions (logical connectives). (See Logical Operator.) 

Contiguous Items . Items that are described by consecutive entries in the 
Data Division, and that bear a definite hierarchic relationship to each 
other. 

Counter . A data item used for storing numbers or number representations in 
a manner that permits these numbers to be increased or decreased by the 
value of another number, or to be changed or reset to zero or to an 
arbitrary positive or negative value. 

Currency Sign . The character $ of the COBOL character set. 

Currency Symbol . The character defined by the CURRENCY SIGN clause in the 
SPECIAL-NAMES paragraph. If no CURRENCY SIGN clause is present in a COBOL 
source program, the currency symbol is identical to the currency sign. 

Current Record . The record that Is available in the record area associated 
with the file. 

Current Record Pointer . A conceptual entity that is used in the selection 
of the next record. 

Data Clause . A clause that appears in a data description entry in the Data 
Division and provides information describing a particular attribute of a 
data item. 

Data Description Entry . A Data Division entry consisting of a level-number 
followed by a data-name, if required, and followed by a set of data 
clauses, as required. 

Data Item . A character or a set of contiguous characters (excluding in 
either case literals) defined as a unit of data by the COBOL program. 

Data-Name . A user-defined word that names a data item described in a data 
description entry in the Data Division. When used in the formats, 
"data-name" represents a word that can neither be subscripted, indexed, nor 
qualified unless specifically permitted by the rules for that format. 

Debugging Line . Any source line with D or d in the indicator area of the 

line. 

Declaratives . A set of one or more special-purpose sections, written at 
the beginning of the Procedure Division, the first of which is preceded by 
the key word DECLARATIVES and the last of which is followed by the key 
words END DECLARATIVES. A declarative is composed of a section header, 
followed by a USE compiler-directing sentence, followed by a set of zero, 
one, or more associated paragraphs. 

Declarative Se ntence. A compiler-directing sentence consisting of a single 
USE statement "terminated by the separator period. 

Delimiter . A character or sequence of contiguous characters that identify 
the end of a string of characters and separates that string of characters 
from the following string of characters. A delimiter is not part of the 
string of characters that it delimits. 

Descending Key . A key upon the values of which data is ordered, starting 
with the highest value of key down to the lowest value of key, in 
accordance with the rules for comparing data items. 
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Destination . The symbolic identification of the receiver of a transmission 
from a queue. 

Digit Position . The amount of physical storage required to store a single 
digit. This amount may vary depending on the usage of the data item 
describing the digit position. If the Data Description entry specifies 
that usage is DISPLAY, then a digit position Is synonymous with a character 
position. 

Division . A set of zero, one, or more sections of paragraphs, called the 
division body, that are formed and combined in accordance with a specific 
set of rules. There are four required divisions in a COBOL program: 
Identification, Environment, Data, and Procedure. One optional division 
(Control) may precede the Identification Division. 

Division Header . A combination of words followed by a period and a space 
that indicates the beginning of a division. The division headers are: 

CONTROL DIVISION. 
IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION. 



PROCEDURE DIVISION 



|_ USING data-name-1 I data-name-2 J ... J 



Dynamic Access . An access mode in which specific logical records can be 
obtained from or placed into a mass storage file in a nonsequential manner 
(see Random Access) and obtained from a file in a sequential manner (see 
Ssquential Access) during the scope of ths same OPEN statement. 

Editing Character . A single character or a fixed two-character combination 
belonging to the following set: 



Character 


Meaning 


B 


Space 





Zero 


+ 


Plus 


- 


Minus 


CR 


Credit 


DB 


Debit 


Z 


Zero suppress 


» 


Check protect 


$ 


Currency sign 


1 


Comma (decimal point) 




Period (decimal point) 


/ 


Stroke (virgule, slash) 



Elementary Item . A data Item that Is described as not being further 
logically subdivided - 

End of Procedure Division . The physical position in a COBOL source program 
after which no further procedures appear. 

Entry. Any descriptive set of consecutive clauses terminated by a period 
and written in the Control Division, Identification Division, Environment 
Division, or Data Division of a COBOL source program. 

Environment Clause . A clause that appears as part of an Environment 
Division entry. 

Execution Time. (See Object Time) 
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w?th"the°EX iEND'nh;^:p%°^ J/^^^ "^^*'" ««°"tion of an OPEN statement, 
a CLOSrsStemen? ?o?%;St"fne '^ '''' ''''' ^"' '^^'"^^^ ''« execution of 

ot-'^wraltr^na? ; sJafl^S^I^t!'" '°''''^" '^^'°* ""' ^° ^"^^-^^ ^^^^ -« 
refer^ed'Sorda!"'"' - * «°»Piler.generated value referenced using certain 
£ile. A collection of records. 
biilsionn tries?''"'' '"'"' '^''"" " P"'"' °'" ^"^ °' ^^« following Data 

File Description (FD) 
Saved Area Description (SA) 
Sort file description (SD) 

data"f??Ifk r P^u^"" °^ *" Environment Division paragraph in which the 
data files for a given source program are declared. 

lilt ?!^°''^P^ - ^°" ^"^'•y ; A" entry in the File Section of the Data Division 

tSen follow^d'hv .°^ . %^^rT' indicator FD. followed by a file-name aS3 
then followed by a set of file clauses as required. 

Hii!:i?»?? ' * user-defined word that names a file described in a file 
of'the'DaJa lulliZ.' '°''' '''' description entry within the File Section 

File Organization . The permanent logical file structure established when a 

File Section . The section of the Data Division that contains file 

^"^'[JP"^" *"^''i" ^"^. ''°'"t ^^^e description entries together with their 
associated record descriptions. 

— . .. _^».w*.^v, HI t aii5ciudib ui CI iset oi aaca. 

Group Item. A named contiguous set of elementary or group items. 

High-Order End. The leftmost character of a string of characters. 

I-0-COWTROL. The name of an Environment Division paragraph in which object 
program requirements for specific input/output techniques, rerun points, 
sharing of same areas by several data files, and multiple file storage on a 
single input/output device are specified. 

I-O Mode. The state of a file after execution of an OPEN statement, with 
the 1-0 phrase specified for that file, and before the execution of a CLOSE 
statement for that file. 

Identifier. A data-name, followed as required by the syntactically correct 
combination of qualifi-rs, subscripts, and indexes necessary to make unique 
reference to a data item. 

Imperative Stateme nt. A statement that begins with an imperative verb and 
specifies an unconditional action to be taken. An imperative statement can 
consist of a sequence of imperative statements. 

IjTdex. A computer storage position or register, the contents of which 
represent the identification of a particular element in a table. 

Index Data Item . A data item in which the value associated with an 
index-name can be stored. 
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I -idex -N a'ae . A user-defined word that names an index associated with a 
specific table.. 

Indexed Data-Name . An identifier that is composed of a data-name, followed 
by one or more index-names enclosed in parentheses. 

Indexe d File . A file with indexed organization. 

Indexe d Organization . The permanent logical file structure in which each 
record is identified by the value of one or more keys within that record. 

Tr.put Fil e. A file that is opened in the input mode. 

Inpu t Mode. The state of a file after execution of an OPEN statement, with 
th? INPUT phrase specified for that file, and before the execution of a 
CLOSE statement for that file. 

Input-Output Control System . The set of run-time subroutines that perform 
physical and logical record processing in the execution of input/output 
coimmands. 

Ir.put- Output File . A file that is opened in the I-O mode. 

Input - Output Section . The section of the Environment Division that names 
the files and the external media required by an object program and which 
provides information required for transmitting and handling data during 
execution of the object program. 

Inpub-Qutput-Technlque . A system-name that specifies an input/output 
technique. 

Inp ut Procedure . A set of statements that are executed each time a record 
is "released to the sort file. 

I nteger . A numeric literal or a numeric data item that does not include 
any character positions to the right of the assumed decimal point. Where 
the term "Integer" appears in general formats, integer must not be a 
numeric data item, and must not be signed, nor zero, unless explicitly 
allowed by the rules of that format. 

In termediate Data Item . A signed numeric data item that contains the 
result redeveloped rtr"the course of an arithmetic operation prior to when 
the final result is moved to the resultant-Identifier, If any. 

IN VALID KEY Condition . A condition, at object time, caused when a specific 
value of the" key associated with an indexed or relative file is determined 
to be in valid - 

Kej^. A data item that identifies the location of a record, or a set of 
data items that serve to Identify the ordering of data. 



in 
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Key of Reference . The key used to access records within an indexed file. 

Key W ord. A reserved word whose presence is required when the format 
which the word appears is used In a source program. 

Level Indicator . Two alphabetic characters that identify a specific type 
of file or a position in a hierarchy. 

Level-Number. A user-defined word that indicates the position of a data 
rtem in the" hierarchical structure of a logical record or that indicates 
="ecial properties of a data description entry. A level-number is 
expressed as a one- or two-digit number. Level-numbers in the range 1 
through ii9 indicate the position of a data item in the hierarchical 
structnre of a logical record. Level-numbers in the range 1 through 9 can 
be written either as a single digit or as a zero followed by a significant 
digit. Level-numbers 65, 77, and 88 identify special properties of a data 
description entry. 
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Library-Name. A user-defined word that names a COBOL library that is 
accepted by the compiler for documentation purposes only. 

Library Tex^. A sequence of character-strings and/or separators in an 
include file. 

Linkage Section . The section in the Data Division of the called program 
that describes data items available from the calling program. These data 
items can be referred to by both the calling and called program. 

Literal . A character-string whose value is implied by the ordered set of 
characters of which the string is composed. 

Logical Operator . One of the reserved words AND, OR, or NOT. In the 
formation of a condition, both or either of AND and OR can be used as 
logical connectives. NOT can be used for logical negation. 

Logical Record . The most inclusive data item. The level-number for a 
record is 01 . 

Low-Order End . The rightmost character of a string of characters. 
MCS . (See Message Control System.) 

Merge File . A collection of records to be merged by a MERGE statement. 
The merge file Is created and can be used only by the merge function. 

Messag e. Data associated with an end-of-message indicator or an 
end-of-group indicator. (See Message Indicators.) 

Message Control System (MCS) . A communication control system that supports 
the processing of messages. See also COBOL Message Control System (CMCS), 

Message Count . The count of the number of complete messages that exist in 
the designated queue of messages. 

Message Indicators . EGI (end-of-group indicator), EMI (end-of-message 
indicator) , and ESI (end-of-segment indicator) are conceptual indications 
that serve to notify the MCS that a specific condition exists (end of 
group, end of message, end of segment). 

Within the hierarchy of EGI, EMI, and ESI, an EGI is conceptually 
equivalent to an ESI, EMI, and EGI. An EMI is conceptually equivalent to 
an ESI and EMI. Thus, a segment may be terminated by an ESI, EMI, or EGI. 
A message may be terminated by an EMI or EGI. 

Message Segment . Data that forms a logical subdivision of a message 
normally associated with an end-of-segment indicator. (See Message 
Indicators. ) 

Mnemonic-Name . A user-defined word that is associated in the Environment 
Division with a specified hardware or operating system feature. 

Native Character Set . The ASCII character set. 

Native Collating Sequence . The ASCII collating sequence. 

Negated Combined Condition . The NOT logical operator immediately followed 
by a parenthesized ao'^bined condition. 

Negated Simple Condition . The NOT logical operator immediately followed by 
a simple condition. 

Next Executable Sentence . The next sentence to which control is 
transferred after execution of the current statement is complete. 

Next Executable Statement . The next statement to which control is 
transferred after execution of the current statement is complete. 
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Next Re:r-d . The record that logically follows the current record of a 
file. 

Noncontiguous Items . Elementary data items in the Working-Storage and 
Linkage Sections that bear no hierarchic relationship to other data items. 

Nonnumeric Item . A data item whose description permits its contents to be 
composed of any combination of characters taken from the computer's 
character set. Certain categories of nonnumeric items can be formed from 
more restricted character sets. 

Nonnumeric Literal . A character-string bounded by quotation marks. The 
string of characters may include any character in the computer's character 
set. To represent a single quotation mark character within a nonnumeric 
literal, two contiguous quotation marks must be used. 

Numeric Character . A character that belongs to the following set of 
digits: d, 1,2, 3, 4, 5, 6, 7, 8, 9. 

Nume.-ic Item . A data item whose description restricts its contents to a 

value represented by characters chosen from the digits through 9; if 

signed, the item can also contain a +, -, or other representation of an 
operational sign. 

Numeric Literal . A literal composed of one or more numeric characters that 

also can contain either a decimal point, or an algebraic sign, or both. 

The decimal point must not be tha rightmost character. The algebraic sign, 
if present, must be the leftmost character. 

Ob je(!t-Computer . The name of an Environment Division paragraph that 
describes the computer environment within which the object program is 
executed. 

Object of Entry . A set of operands and reserved words within a Data 
Division entry that immediately follows the subject of the entry. 

Object Program . A set or group of executable machine language instructions 
and other material designed to interact with data to provide problem 
solutions. In this context, an object program is generally the machine 
language result of the operation of a COBOL compiler on a source program. 
Where there is no danger of ambiguity, the word "program" alone can be used 
in place of "object program." 

Object Time . The time at which an object program is executed. 

Open Mode . The state of a file after execution of an OPEN statement for 
that file and before execution of a CLOSE statement for that file. The 
particular open mode is specified in the OPEN statement as either INPUT, 
OUTPUT, I-O, or EXTEND. 



Operand . Whereas the general definition of operand is 'that component 
which is operated upon', for the purposes of this manual, any lowercase 
word that appears in a statement or entry format may be considered to be an 
operand and, as such, is an implied reference to the data indicated by the 
operand. 



Operational Sign . An algebraic sign associated with a numeric data item or 
a numeric literal to indicate whether its value is positive or negative. 

Optional File . An input file that is declared as being not necessarily 
present each time the object program is executed. The object program 
causes an interrogation for the presence or absence of the optional file. 

Optional Word . A reserved word that is included in a specific format only 

to improve the readability of the language and whose presence is optional 

to the user when the format in which the word appears is used in a source 
program. 
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2Ht|ulj:ne. A file that is opened in either the output mode or extend 

ST^S^TEi^TPUT''or'E?TENrohr.'si' ^^'^f^ '"^"tion of an OPEN statement, 
execution orfcLSsE'smLe'S^^J^r JSat'f ile/''" ''^' ''''' ^"' '^'^^^ ''^ 

ffFlS^nd 'a 3Sace""^nd'T ^'-^'^^on, a paragraph-name followed by a 
Paragraph Header. A reserved word, followed by a period and a soace th^t 

In the Identification Division: 

PROGRAM-ID. 

AUTHOR. 

INSTALLATION. 

DATE-WRITTEN. 

DATE-COMPILED. 

SECURITY. 

In the Environment Division: 

SOURCE-COMPUTER. 
OBJECT-COMPUTER. 
SPEGIAL-MAMES. 

file-controlT* 
i-o- control. 

^^''fg''^P^-''«°«- A user-defined word that identifies and begins a paragraph 
in the Procedure Division. y e> v 

Phrase. A phrase is an ordered set of one or more consecutive COBOL 

!J1I«^®'*T*^''^"8^ ^^^^ ^°^^ ^ portion of a COBOL procedural statement or of 
a oOBOL clause. 

Physical Record . (See Block) 

Prime Record Key . A key whose contents uniquely identify a record within 
an indexed file. 

Procedure . A paragraph or group of logically successive paragraphs, or a 
section or group of logically successive sections, within the Procedure 
Division. 

Procedure-Name . A user-defined word that names a paragraph or section in 
the Procedure Division. It consists of a paragraph-name (which can be 
qualified) or a section-name. 

Program-Name . A user-defined word that identifies a COBOL source program. 
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Punctuation Character . A character that belongs to the following set: 

Character Meaning 

t Comma 

; Semicolon 

Period 
" Quotation mark 
( Left parenthesis 
) Right parenthesis 

Space 
= Equal sign 

Qual ified Data-Name . An identifier that is composed of a data-name 
Tollbwed by one or more sets of either of the connectives OF and IN 
followed by a data-name qualifier. 

Qualifier . 

1 . A data-name that is used in a reference together with another 
data-name at a lower level in the same hierarchy. 

2. A section-name that is used in a reference together with a 
paragraph-name specified in that section. 

3. A library-name that is used in a reference together with a 
text-name associated with that library. 

Queue . A logical collection of messages awaiting transmission or 
processing. 

Queue-Name . A symbolic name that indicates to the CHCS the logical path by 
which a message or a portion of a completed message may be accessible in a 
queue. 

Random Access . An access mode in which the program-specified value of a 
key data item identifies the logical record that is obtained from, deleted 
from, or placed into a relative or indexed file. 

Record . (See Logical Record) 

Record Area . A storage area allocated for the purpose of processing the 
record described in a record description entry in the File Section. 

R ecord Description Entry . The total set of data description entries 
associated with a particular record. 

Record Key . A key whose contents identify a record within an indexed file. 

Record-Name . A user-defined word that names a record described in a record 
description entry in the Data Division. 

Reference Format . A format that provides a standard method for describing 
COBOL source progr ams . 

Relation Character . A character that belongs to the following set: 

Character Meaning 

> Greater than 
< Less than 

= Equal to 
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Ml|M£nal^£J£||£n. A reserved word, a relation character, a group of 
relatinn^L.I!f '^^'^ "^'*?*' °'" ^ 8'"°"P °^ consecutive reserved words and 



Relational Operator 



IS |_ NOT 

IS ] NOT 
IS ' NOT 

IS [not 

IS [ NOT 

IS ^ NOT 

IS UNEQUAL TO 

EQUALS 

EXCEEDS 



GREATER THAN 

> 
LESS THAN 

< 
EQUAL TO 



) 
} 
} 



HeanlHR 

Greater than or not greater than 

Less than or not less than 

Equal to or not equal to 

Not equal to 
Equal to 
Greater than 



Relative File. A file with relative organization. 

T^rarFlU^d t„ S'r'.lJJn: fj?^"" '-"'f' ">' ■"•■""•1 position of , 

Relative Organization. The permanent logical file structure in which each 
llTJir^ll uniquely Identified by an Integer value greate? IhaS ^ero. wS?ch 
specifies the record's logical ordinal position in the file. 

u^^rn^S'grtf ' * ^°^"^ "^'■^ specified in the list of words that can be 
used in COBOL source programs, but that must not appear in the DroKraros as 
user-defined words or system-names. (See Appendix A.) programs as 

Resultant-Identifier. A user-defined data item that is to contain 
result of an arithmetic operation. 



the 



Run-Unit . A set of one or more object programs that function, at object 
time, as a unit to provide problem solutions. 

!!»??°" 'k t ^®^.u^ *?*■"?• 2"®' °'' "*""* paragraphs or entries, called a 
section body, the first of which is preceded by a section header. Each 
section consists of the section header and the related section body. 

!!°!^'^? "f^^er. A combination of words followed by a period and a space 
that indicates the beginning of a section in the Environment, Data, and 
Procedure Divisions. ' 

In the Environment and Data Divisions, a section header is composed of 
reserved words followed by a pei lod and a space. The permissible section 
headers are: 

In the Environment Division: 

CONFIGURATION SECTION. 
INPUT-OUTPUT SECTION. 
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In the Data Division: 

FILE SECTION. 
WORKING-STORAGE SECTION. 
LINKAGE SECTION. 
COMMUNICATION SECTION. 
CONSTANT SECTION, 

In the Procedure Division, a section header is composed of a section-name, 
followed by the reserved word SECTION, followed by a segment-number 
(optional), followed by a period and a space. 

Section-Name . A user-defined word that names a section in the Procedure 
Division. 

Segment-Number . A user-defined word that classifies sections in the 

Procedure Division for purposes of segmentation. Segment-numbers can 

contain only the characters 0, 1, ..., 9. A segment-number can be 
expressed as either a one- or two-digit number. 

Sentence . A sequence of one or more statements, the last of which is 
terminated by a period followed by a space. 

Separator . A punctuation character used to delimit character-strings. 

Sequential Access . An access mode in which logical records are obtained 
from or placed into a file in a consecutive predecessor-to-successor 
logical record sequence determined by the order of records in the file. 

Sequential File . A file with sequential organization. 

Sequential Organization . The permanent logical file structure in which a 
record is Identified by a predecessor-successor relationship established 
when the record is placed into the file. 

Sign Condition . The proposition, for Which a truth value can be 
determined, that the algebraic value of a data item or an arithmetic 
expression is either less than, greater than, or equal to zero. 

Simple Condition . Any single condition chosen from the set: 

Relation condition 
Class condition 
Condition-name condition 
Switch-status condition 
Sign condition 
Message condition 
(Simple condition) 

Sort File . A collection of records to be sorted by a SORT statement. The 
sort file is created and can be used by the sort function only. 

Sort-Merge File Description Entry . An entry in the File Section of the 
Data Division that is composed of the level indicator SD , followed by a 
file-name, and then followed by a set of file clauses as required. 

Source . The symbolic identification of the originator of a transmission to 
a queue. 

Source-Computer . The name of an Environment Division paragraph that 
describes the computer environment within which the source program is 
compiled. 

Source Program . Although it is recognized that a source program can be 
represented by other forms and symbols, in this manual it always refers to 
a syntactically correct set of COBOL statements beginning with an 
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In cSJux?s ^he^e JSi?« ?^' •"S'"^ "'^' '"« "^ °^ '»'« Procedure Division, 
can Se used !nD?SoI .1 ° '"^^'' °^ «""8"lty, the word "program" alone 
optionallv be D^^oin K f f^"""?! Program." The Control Division may 
Jalues Jo fL^ r^,,''^^°!:'' ^^* Identification Division to supply default 
p?Jgram. ^o^Pller, but it is not considered part of the source 

Special Charaoter. A character that belongs to the following set: 
Character Meaning 

+ Plus sign 

Minus sign 

• Asterisk 

/ Stroke (virgule, slash) 

= Equal sign 

t Currency sign 

t Comma (decimal point) 

; Semicolon 

Period (decimal point, full stop) 

" Quotation mark 

( Left parenthesis 

> Right parenthesis 

> Greater than symbol 
< Less than symbol 

I Exclamation point 

' Number .lign 

% Percent 

6 Ampersand 

' Apostrophe 

: Colon 

7 Question mark 
9 Commercial at 

^P*<'|»^7<^*'aracter Word. A reserved word that is an arithmetic operator or 
a relation character. 

Special-Hames. The name of an Environment Division paragraph in which 
nultlcs names are related to user-specified mnemonic-names. 

Special Registers. Compiler generated storage areas whose primary use is 
to store information produced in conjunction with the use of specific COBOL 
features. 

Standard Data Format . The concept used in describing the characteristics 
of data in a COBOL Data Division under which the characteristics or 
properties of the data are expressed In a form oriented to the appearance 
of the data on a printed page of infinite length and breadth, rather than a 
form oriented to the manner in which the data is stored internally in the 
computer, or on a particular external medium. 

Statement . A syntactically valid combination of words and symbols written 
in the Procedure Division, beginning with a verb. 

Sub-Queue . A logical hierarchical division of a queue. 

Subject of Entry . An operand or reserved word that appears immediately 
following the level indicator or the level-number In a Data Division entry. 

Subprogram . (See Called Program) 

Subscript . An integer whose value identifies a particular element in a 
table. 

Subscripted Data-Name . An identifier that is composed of a data-name 
followed by one or more subscripts enclosed in parentheses. 
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Switch-Status Condition . The proposition, for which a truth value can be 
determined, that a switch, capable of being set to an "ON" or "OFF" status, 
has been set to a specific status. 

System-Name . A COBOL word that is used to communicate with the operating 
environment. 

Table . A set of logically consecutive items of data that are defined in 
the Data Division by means of the OCCURS clause. 

Table Element . A data item that belongs to the set of repeated items that 
compose a table. 

Text-Name . A user-defined word that identifies library text. 

Text-Word . Any character-string or separator, except a space, in a COBOL 
source program or library. 

Truth Value . The representation of the result of the evaluation of a 
condition in terms of one of two values: 

True 
False 

Unary Operator . A plus (+) or a minus (-) sign, which precedes a variable 
or a left parenthesis in an arithmetic expression and which has the effect 
of mjltiplying the expression by +1 or -1, respectively. 

Unit . Random mass storage_space allocated to the program in the execution 
acti/ity under a single operating system file code. 

User -Defined Word . A COBOL word that must be supplied by the user to 
satisfy the format of a clause or statement. 

Variable . A data item whose value can be changed by execution of the 
object program. A variable used in an arithmetic expression must be a 
numeric elementary item. 

Variable-Length Data Item . A data item that, although physically fixed in 
size, contains a logically variable number of characters. Such a data item 
must contain the PICTURE symbol L In its data description entry. 

Variable-Occurrence Data Item . A table element that is repeated a 
variable number of times. Such a data item must contain a Format 2 OCCURS 
clause in its data description entry or be subordinate to such an item. 

Verb . A word that expresses an action to be taken by a C030L compiler or 
object program. 

Volume . A unit of storage media, such as a reel of tape, or the mass 
storage file space allocated to a program by the operating system under one 
file code. 

Word. A character-string of not more than 30 characters that forms a 
user-defined word, system-name, or reserved word. 

Working-Storage Section . The section of the Data Division that describes 
working-storage data items and constants, composed either of noncontiguous 
items or of working-storage records, or of both. 
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or»!:Mrf^"^^^°''^P^^°""^"^'"y - * "^^^^ description entry that identifies 
RENAMES entries and can be used only as described by Format 2 of the Data 
Description Skeleton. 

77-Level-Description-Entry . A data description entry that describes a 
noncontiguous data item with the level-number ?7 and can be used only as 
described by Format 1 of the Data Description Skeleton. 

88-Level-De3cript ion-Entr y. A data description entry that defines 
condition-names associated with a conditional variable and can be used only 
as described by Format 3 of the Data Description Skeleton. 
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APPENDIX C 

COLLATING SEQUENCE AND BIT CONFIGURATION CHARTS 

Table C-1. ASCII Collating Sequence (Hexadecimal) and Bit Configuration 
bpb^bgb^j 

1 



0000 0001 0010 0011 0100 0101 0110 0111 1000 1001 1010 1011 1100 1101 1110 1111 



,HEX 0123156789ABCDEF 



0000 NUL DLE SP 



0001 1 SOH 0C1 I 



0010 2 STX DC2 



0011 3 ETX DC3 



0100 «» EOT DCIt 



0101 5 ENQ NAK S 5 E U 



0110 6 ACK SIN & 6 F 



0111 7 BEL ETB • 7 G W 



tOOO 8 BS CAN ( 8 H 



1001 9 HT EM 



1010 A NL SUB 



1011 B VT ESC ■!■ 



1100 C NP FS 



1101 D CR GS 



1110 B MS RS 



1111 F BRS US / ? _ o DBL BO 



C-1 ASM 



Table C-2. EBCDIC Collating Sequence 



bpbTbgbg 



X 



tbsbfibY 



!0000 0001 0010 0011 0100 0101 0110 0111 1000 1001 1010 1011 1100 1101 1110 1111 



HEX 12 3 



0000 NUL OLE DS 



SP 



0001 1 SDH DC1 SOS 



0010 2 STX DC2 FS SYN 



0011 3 ETX TH 



0100 1 PF RES BYP PH 



0101 5 FT NL LF HS 



0110 6 to BS ETB UC 



1000 6 



CAN 



0111 7 DEL IL ESC EOT 



1001 9 RLF EM 



1010 A SMH CC SH 



1011 B VT CU1 CU2 CU3 



1100 C FF IFS 



DCU 



1101 D CR IGS ENQ NAK ( 



1110 B SO IRS ACK 



1111 F SI lUS BEL SOB 



NOTE: The following substitutions are made on some 
equipment. 

a. ASCTT environment 

« (4A) prints as [ (left bracket) 

1 (5A) prints as ] (right bracket) 

I (1|F) prints as I (exclamation mark) 

—1 (5F) prints as " (circumflex accent) 

and in ISO environment only 

I (6A) prints as j (vertical line) 



EO 



b. ?Q0-gQ00 S eries environment 

I {4F) prints as Co (credit sign) 
\ (EO) prints as t (unequal sign) 
— i(5F) prints as ■ (filled square) 
(6D) prints as O (square) 

c. 100 - too - 600 - 6000 Seri es environment 
I (IF) prints as ] (right bracket) 

« (tA) prints as [ (left bracket) 
—I (5F) prifits as | (upper arrow) 
_ (6D) prints as «- (left arrow) 
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APPENDIX D 
FIPS LEVELING 



In order to conforn to Federal Government Standards for COBOL the FIPS 
LEVELING feature is provided. This allows the user to restrict himself to a 
subset of the Multics COBOL language. The allowable subset is determined by use 
of the -level x parameter in the COBOL command when the compiler is invoked. 
When X has a value of 1 the user wishes to restrict himself to the Low Level Set 
of the language; 2 to the Low Intermediate Level; 3 to the High Intermediate 
Level; and 4 to the High Level. A value of 5 allows the user to use the full 
Multics COBOL language. If the program being compiled contains a language 
construct that is in a higher level than has been specified a fatal (severity 3) 
diagnostic occurs on that construct. 

There are two government standards that are of special interest to COBOL. 
These are the ANSI COBOL Standard and the Federal COBOL Standard. (FIPS PUB 
21-1.) The ANSI standard divides the COBOL language into 12 major areas 
(NUCLEUS, SEQUENTIAL I-O, COMMUNICATIONS, etc.) Most of these areas are then 
subdivided into two parts (NUCLEUS 1 and NUCLEUS 2 for example). The Federal 
standard has grouped these parts in four levels. An extract from FIPS PUB 21-1 
follows. 

Federal Standard COBOL specifications are the language specifications 
contained in American National Standard COBOL X3. 23-1974. For purposes of 
Federal Standard COBOL, the modules defined in X3. 23-1974 are combined into four 
levels. The four levels of Federal Standard COBOL are identified as: Low, 
Low-Intermediate, High-Intermediate, and High. Each Federal Standard COBOL 
level is composed of either the high or low levels of the nucleus and ten of the 
eleven Functional Processing Modules (FPM's) defined in X3. 23-1974. The four 
Federal Standard COBOL levels are reflected in the following table. The numbers 
in the table refer to the level within the FPM or nucleus as designated in 
X3. 23-1974, and a dash in the table denotes the corresponding FPM is omitted. 
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Low 


High 






Low 


Intermediate 


Intermediate 


High 




Level 


Level 


Level 


Level 


NUCLEUS 


1 


1 


2 


2 


FPU'S 










TABLE HANDLING 


1 


1 


2 


2 


SEQUENTIAL I-O 


1 


1 


2 


2 


RELATIVE 1-0 


- 


1 


2 


2 


INDEXED 1-0 


- 


- 


- 


2 


SORT-MERGE 


- 


- 


1 


2 


REPORT WRITER 


- 


- 


- 


- 


SEGMENTATION 


- 


1 


1 


2 


LIBRARY 


- 


1 


1 


2 


DEBUG 


- 


1 


2 


2 


INTER-PROGRAH 










COMMUNICATION 


- 


1 


2 


2 


COMMUNICATION 






2 


2 



NOTE: The "REPORT WRITER" module is not mandatory in any Federal Level. 
However, the specifications contained in X3. 23-197f should be used 
to the extent practical, consistent with the requirements. 

The full ANSI-ig?"* language is summarized in this section. 

Multios COBOL does not support the entire ANSI-1974 language. Elements not 
supported are: 

• The REPORT WRITER module. 

• The REVERSED phrase of OPEN in the SEQUENTIAL 1-0 module. 

• RERUN in the SEQUENTIAL, RELATIVE, and INDEXED 1-0 modules. The 
syntax is accepted, but no object code is generated. 

The following information is extracted from pages 1-41 through 1-51 of American 
National Standard Programming Language COBOL, ANSI X3. 23-1974. This shows the 
disposition of the ANSI COBOL elements. 
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^^^^^^^^ LEVEL 

Language Concepts 
Character set 

Characters used for words 

0» 1 » • • • .9,A ,B, . . . ,Z - (hyphen or minus) i nuc 

Characters used for punctuation 

- ^ ( ) - space 1 NUC 

» » 2 NUC 

Characters used in arithmetic operations 

* - • / " 2 NUC 

Characters used in relations 

„^ ^ ^^- 2 NUC 

Characters used xn editing 

B + - CR DB Z • $ , . / 1 NUC 

Separators ^ ^ «jp 

Semicolon and comma not permitted ! ! ! ! 1 NUC 

Semicolon and comma are allowed . . ! ! ! ! 2 NUC 

Character-strings * ' i unp 

COBOL words '.'.'.'.'.'. 1 nuc 

Not more than 30 characters 

User-defined words ■\ kuc 

cd-name [ ] 1 COH 

condition-name 2 NUC 

data-name 

Must begin with an alphabetic character. . . 1 NUC 
Need not begin with an alphabetic 

character 2 NUC 

file-name [ 1 SEQ 

index-name ] 1 jbl 

level-number 1 NUC 

library-name 2 LIB 

mnemonic-name 1 NUC 

paragraph-name 1 NUC 

program-name i nuc 

record-name 1 SEQ 

report-name 1 rPU 

routine-name 1 nuC 

section-name 1 nuc 

segment-number 1 SEG 

*-"- ■•— >. ,, I i,i,D 

System-names 1 hUC 

computer-name 

implementor-name 

language-name 

Reserved words I NUC 

( Key words 1 MUC 

Optional words 1 NUC 

Connectives 

Qualifier connectives; OF, IN 2 MUC 

Series connectives: , (separator comma) 

and ; (separator semicolon) 2 NUC 

Logical connectives: AND, OR, AND NOT 

OR NOT 2 HUC 
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ELEMENTS 



LEVEL 



Reserved Words (continued) 
Special registers 

LINE-COUNTER, PAGE-COUNTER 1 RPW 

LINAGE-COUNTER 2 SEQ 

DEBUG-ITEM 1 DEB 

Figurative constants 

ZERO 1 NUC 

ZEROS, ZEROES 2 NUC 

SPACE 1 NUC 

SPACES 2 NUC 

HIGH-VALUE, LOW-VALUE 1 NUC 

HIGH-VALUES, LOW-VALUES 2 NUC 

QUOTE 1 NUC 

QUOTES 2 NUC 

All literal 2 NUC 

Special-character words 

Arithmetic operators 2 NUC 

Relation characters 2 NUC 

Literals 1 NUC 

Nonnumeric literals have lengths from 1 through 

120 characters 
Numeric literals have lengths from 1 through 
18 digits 

PICTURE character-strings 1 NUC 

Comment-entries 1 NUC 

Qualification 2 NUC 

No qualification permitted. ...==.,,,,.-. 1 NUC 

Qualification permitted 2 NUC 

Subscripting 

3 levels 1 TBL 

Indexing 

3 levels • • 1 tbl 

Identification Division 

The PROGRAM-ID paragraph ] NUO 

The AUTHOR paragraph 1 „,,p 

The INSTALLATION paragraph 1 u,,r 

The DATE-WRITTEN paragraph l «nr 

The DATE-COMPILED paragraph i unr 

The SECURITY paragraph ' ""^ 

Environment Division 

Configuration Section 

The SOURCE-COMPUTER paragraph ] «uc 

computer-name ] ""^ 

WITH DEBUGGING MODE phrase ] DEB 

The OBJECT-COMPUTER paragraph ]mic 

computer-name ] 'Vrz, 

MEMORY SIZE clause i nu». 
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ELEilMIS LEVEL 

The OBJECT-COMPUTER paragraph (continued) 

PROGRAM COLLATING SEQUENCE clause 1 NUC 

SEGMENT-LIMIT clause 1 SEG 

The SPECIAL-NAMES paragraph 

implementor-name IS mnemonic-name 1 NUC 

ON STATUS 1 NUC 

OFF STATUS .,...,,, l NUC 

irapleraentor-name series 1 NUC 

alphabet-name clause 

STANDARD- 1 1 tJUC 

NATIVE 1 NUC 

implementor-name 1 NUC 

literal 2 NUC 

CURRENT SIGN clause 1 NUC 

DECIMAL-POINT clause 1 NUC 

Input-Output Section 

The FILE-CONTROL paragraph 

SELECT clause 1 SEQ 

1 REL 
1 INX 
1 SRT 

Optional phrase 2 SEQ 

ASSIGN TO implementor-name clause 1 SEQ 

1 REL 
1 INX 

1 SRT 
RESERVE AREA(S) clause 2 SEQ 

2 REL 
2 INX 

ORGANIZATION clause 

SEQUENTIAL 1 SEQ 

RELATIVE 1 REL 

INDEXED 1 INX 

ACCESS HODE clause 

SEQUENTIAL 1 SEQ 

1 REL 

1 INX 

RANDOM 1 REL 

1 INX 
DYNAMIC 2 REL 

2 IHX 

RECORD KEY clause 1 INX 

ALTERNATE RECORD KEY clause 2 INX 

FILE STATUS clause 1 SEQ 

1 REL 
1 INX 

The I-O-CONTROL paragraph 

RERUN clause 1 SEQ 

1 REL 
1 INX 
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ELEMENTS LEVEL 

The I-0-CONTROL paragraph (continued) 

SAME AREA clause • 1 SEQ 

1 REL 

1 INX 

SAME RECORD AREA clause 2 SEQ 

2 REL 
2 INX 
2 SRT 

SAME SORT/SORT-MERGE AREA clause 2 SRT 

SAME series | SEQ 

1 REL 

1 INX 

MULTIPLE FILE TAPE clause 2 SEQ 

Data Division 

Communication Section ] COM 

File Section ] zl? 

1 REL 

1 INX 
1 SRT 
1 RPW 

Linkage Section 1 ddS 

Report Section ] 2„*f 

Working-Storage Section i rnu 

The communication description entry ] COM 

The data description entry ] NUC 

The file description entry ] tl? 

1 INX 
1 RPW 

The record description entry ] ||P 

1 INX 

The report description entry I Spu 

The report group description entry i «rw 

The sort-merge description entry ] ^"i. 

The BLANK WHEN ZERO clause ' ""^ 

The BLOCK CONTAINS clause 

integer CHARACTERS/RECORDS 1 SEQ 

"^ 1 REL 

1 INX 

1 RPW 
integer-1 TO integer-2 CHARACTERS/RECORDS 2 SEQ 

2 INX 
1 RPW 

The CODE clause I qpS 

The CODE-SET clause J JJJj 

The COLUMN NUMBER clause ] J?JJ 

The CONTROL clause 1 MUC 

The data-name clause j ^pJJ 
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ELEMENTS 



LEVEL 



The DATA RECORDS clause 1 SEq 

1 REL 

1 IMX 

FT! I trts ^ SRT 

The GROUP INDICATE clause .... NUt. 

The JUSTIFIED clause (may be abbreviated JUST) '.'.'' \ mc 

The LABEL RECORDS clause . • . . i nuu 

STANDARD/OMITTED , ggg 

1 REL 
1 INX 

Level-number ^ ^^^ 

01 through 10 (level-number must be 2 digits) .... l nuc 

1 through H9 (level-number may be 1 digit). ... 2 NUC 

^^ °[ 88 , : 2 NUC 

The LINAGE clause o crn 

The LINE NUMBER clause ] 1 opu 

The NEXT GROUP clause opu 

The OCCURS clause 

integer TIMES , TBL 

ASCENDING/DESCENDING data-name '.'.'.'.'. 2 TBL 

data-name series ' ' p tri 

INDEXED BY index-name '.'.'.'' i tbl 

integer-1 TO integer-2 DEPENDING ON data-name .'.'.[ 2 TBL 

The PAGE clause 1 RPW 

The PICTURE clause (may be abbreviated PIC) 

Character-string may contain 30 characters 1 NUC 

Data characters: AX9 1 nuC 

Operational symbols: SVP '.'.'. 1 NUC 

Fixed insertion characters: B , . $ ♦ - DB CR /! ! 1 NUC 

Replacement or floating characters: ♦ - Z • l nuc 

Currency sign substitution 1 NUC 

Decimal point substitution " i uuc 

The RECORD CONTAINS clause 1 SEQ 

1 P£L 

i INX 
1 SRT 
1 RPW 
The REDEFINES clause 

May not be nested 1 NUC 

Hay be nested . [ 2 NUC 

The RENAMES clause 2 NUC 

The REPORT clause 1 RPy 

The SIGN clause. [ 1 jjUC 

The SOURCE clause 1 rpv^ 

The SUM clause 1 RPW 

The SYNCHRONIZED clause (may be abbreviated SYNC). ... 1 NUC 
The TYPE clause 1 rPW 
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^^^™^^^ LEVEL 

The USAGE clause 

n?^D^Iv^'''°"*^ ^"^y ^^ abbreviated COMP) i nUC 

IHDEX ""f 

The VALUE clause 

literal ^ l^^j, 

literal aeries '.'.'. 2 Muc 

literal THRU literal '.'.'.'.'.'.'.'.'.'. 2 NUC 

literal range series ? Miir 

The VALUE OF clause 

implementor-name IS literal 1 SEQ 

1 REL 

1 INX 

1 RPW 
implementor-name IS data-name 2 SEQ 

2 REL 
2 INX 
1 RPW 

Procedure Division 

USING phrase in Procedure Division header i ipc 

Declaratives ] t SEQ 

1 REL 

1 INX 

1 RPW 

A 4VV. ... 1 DEB 

Arithmetic expressions ...,,,,,,,,,..,., 2 NUC 

Conditional expressions '..'.'.'. 1 NUC 

Simple conditions ! ! ! ! ! 1 NUC 

Relation condition 1 mjc 

Relation operators 

[NOT] GREATER THAN 1 NUC 

[NOT] > 2 NUC 

[NOT] LESS THAN 1 »UC 

[HOT] < 2 NUC 

[NOT] EQUAL TO 1 NUC 

[NOT] 2 NUC 

Comparison 

Numeric operands 1 NUC 

Nonnumeric operands 

Operands must be of equal size 1 NUC 

Operands may be unequal in size 2 NUC 

Class condition 1 NUC 

NOT option 

Switch-status condition 1 NUC 

Condition-name condition 2 NUC 

Sign condition 2 NUC 

NOT option 

Complex condition 2" NUC 

Logical operators AND, OR, and NOT 

Negated simple conditions 2 NUC 

Combined and negated combined conditions 2 NUC 

Abbreviated combined relation condition 2 NUC 
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ELEMEN TS 

— LEVEL 



The arithmetic statements 

Arithmetic operands limited to 18 digits. . i 

Overlapping operands . . , .... 



Multiple results in arithmetic statements 2 

The ifPFPT -«-,«-____i. 



NUC 
1 NUC 
1 TBL 

NUC 



Only one transfer oi data 
No restrict 
FROM phrase 



No restriction on the number of transfers of'data '. .* 2 



NUC 

MESSAGE COUNT phrase. ...:;;; 1 SS 

The ADD statement 

identifier/literal series 1 Mrir 

TO identifier ] Srix 

TO identifier series. ...['''' l 

GIVING identifier f 

GIVING identifier series. . . . ! p 

ROUNDED phrase T „,,^ 

SIZE ERROR phrase 1 

CORRESPONDING phrase '. p 

The ALTER statement 

procedure-name 1 

procedure-name series p 

The CALL statement 

literal . ,p_ 

Identifier p ip): 

USING data-name '. f tpj: 

ON OVERFLOW phrase p 

The CANCEL statement 2 

The CLOSE statement 

Single file-name ^ 

file-name series !!!!!! 2 



NUC 
NUC 
NUC 
NUC 



NUC 

NUC 

NUC 
NUC 



IPC 
IPC 



SEQ 
SEQ 
1 REL 

5Sfi ::::::::::::::;:::::•■• I is 

HO REWIND ' ' i ZZi 

FOR REMOVAL '.'.'.'.','.'.'.'. 2 SEQ 

^O^-K 2 SEQ 

1 REL 

1 INX 

The COMPUTE statement 2 NUC 

The DELETE statement 1 reL 

1 INX 
The DISABLE statement 

INPUT I COM 

TERMINAL ' ' ' 2 COM 

OUTPUT, : : : i com 

KEY identifier/literal 1 COM 

The DISPLAY statement 

Only one transfer for data 1 mjc 

No restriction on the number of transfers of data . . 2 NUC 

UPON phrase 2 NUC 
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The DIVIDE statement 

INTO identifier 1 NUC 

IHTO Identifier series 2 MUC 

BY identifier 1 NUC 

GIVING identifier 1 NUC 

GIVING identifier series 2 NUC 

REMAINDER phrase 2 NUC 

ROUNDED phrase 1 NUC 

SIZE ERROR phrase 1 NUC 

The ENABLE statement 

INPUT 1 COM 

TERMINAL 2 COM 

OUTPUT 1 COM 

KEY identifier/literal 1 COM 

The ENTER statement 1 NUC 

The EXIT statement 1 NUC 

The EXIT PROGRAM statement 1 IPC 

The GENERATE statement 1 RPW 

The GO TO statement 

procedure-name is required 1 NUC 

procedure-name is optional 2 NUC 

DEPENDING ON phrase 1 NUC 

The IF statement 

Statements must be imperative statements 1 NUC 

Nested statements 2 NUC 

ELSE 1 NUC 

The INITIATE statement 1 RPW 

The INSPECT statement 

Only single character data item 1 NUC 

Multi-character data item 2 NUC 

The MERGE statement 2 SRT 

The MOVE statement 

TO identifier 1 NUC 

TO identifier series 1 NUC 

CORRESPONDING phrase 2 NUC 

The MULTIPLY statement 

BY identifier ''NUC 

BY identifier series 2 NUC 

GIVING identifier 1 NUC 

GIVING identifier series 2 NUC 

ROUNDED phrase 1 NUC 

SIZE ERROR phrase ^ "^C 

The OPEN statement 

INPUT , ^^„ 

Single file-name I cln 

file-name series 2 SEQ 

1 REL 
1 INX 

REVERSED • ? IIS 

NO REWIND 2 SEQ 
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ELEMENTS LEVEL 



The OPEN statement (continued) 
I-O 

Single file-name 1 SEQ 

file-name series 2 SEQ 

1 REL 
1 INX 
EXTEND 

file-name series 2 SEQ 

INPUT, OUTPUT, I-O, and EXTEND series 2 SEQ 

INPUT, OUTPUT, and I-O series 1 REL 

1 INX 

The PERFORM statement 

procedure-name 1 NUC 

AiiflvrPEiaaSS e a t • ■ c s • o v a e 9 9 V e o o a a a > Fl\/t> 

TIMES phrase 1 NUC 

UNTIL phrase 2 HUC 

VARYING phrase 2 NUC 

The READ statement 

file-name 1 SEQ 

1 REL 
1 INX 

INTO identifier 1 SEQ 

1 REL 
1 INX 

AT END phrase 1 SEQ 

1 REL 
1 INX 

INVALID KEY phrase 1 REL 

1 INX 
NEXT RECORD 2 REL 

2 INX 
KEY IS phrase 2 INX 

The RECEIVE statement 

MESSAGE l COM 

SEGMENT 2 COM 

IMTO identifier 1 COM 

Krv nATA •^u.^AA ..... 1 r.OM 

w vn^ n |/iir a«j^ »«>»•»♦•••••-••.----- — •- 

The RELEASE statement 

record-name ^ SRT 

FROM phrase 1 SRT 

The RETURN statement 

file-name 1 SRT 

INTO phrase . 1 SRT 

AT END phrase 1 SRT 

The REWRITE statement 

FROM identifier 1 SEQ 

1 REL 

1 INX 

INVALID KEY Phrase ! ?«y 

1 X NX 

The SEARCH statement 2 TBL 
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The SEND statement 

FROM identifier-1 2 COM 

FROM identifier-1 WITH 1 COM 

WITH identifier-2 2 COM 

WITH EGI 1 COM 

WITH EMI 1 COM 

WITH ESI 2 COM 

BEFORE/AFTER ADVANCING 1 COM 

The SET statement 1 TBL 

The SORT statement 

Only one SORT statement, a STOP RUN statement, and 
any associated input-output procedures allowed 

in the nondeclarative portion of a program .... 1 SRT 

Program not limited to one SORT statement 2 SRT 

COLLATING SEQUENCE phrase 2 SRT 

The START statement 2 REL 

2 INX 

The STOP statement 1 NUC 

The STRING statement 2 NUC 

The SUBTRACT statement 

identifier/literal series 1 NUC 

FROM identifier 1 NUC 

FROM identifier series 2 HUC 

GIVING identifier 1 NUC 

GIVING identifier series 2 NUC 

ROUNDED phrase 1 NUC 

SIZE ERROR phrase 1 NUC 

CORRESPOMDING phrase = ................ 2 NUC 

The SUPPRESS statement 1 RPW 

The TERMINATE statement 1 RPW 

The UNSTRING statement 2 NUC 

The USE statement 

EXCEPTION/ERROR PROCEDURE 

ON file-name/INPUT/OUTPUT/I-0 1 SEQ 

1 REL 
t INX 

ON file-name series 2 SEQ 

2 REL 
2 INX 

ON EXTEND 2 SEQ 

BEFORE REPORTING 1 RPW 

The USE FOR DEBUGGING statement 

procedure-name. ....... 1 DEB 

procedure-name series 1 DEB 

ALL PROCEDURES 1 DEB 

ALL REFERENCES OF identifier series 2 DEB 

file-name series 2 DEB 

cd-name series 2 DEB 
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The WRITE statement 

record-name 1 SEQ 

1 REL 

FROM identifier 1 SEQ 

1 REL 
1 INX 
BEFORE/AFTER ADVANCING 

integer LINES 1 SEQ 

PAGE 1 SEQ 

identifier LINES 2 SEQ 

mnemonic-name 2 SEQ 

AT END-OF-PAGE phrase 2 SEQ 

INVALID KEY phrase 1 rel 

1 INX 

Segmentation 

Segment-number \ SEG 

Fixed segment-number range through 19 1 SEG 

Non-fixed segment-number range 50 through 99 1 SEG 

SEGMENT-LIMIT clause 2 SEG 

Library 

COPY statement 1 LIB 

OF/IN library-naoe 2 LIB 

REPLACING phrase 2 LIB 

Reference format 1 nuc 

Sequence numbers 1 NUC 

Area A 1 nUC 

Division header 1 NUC 

Section header 1 NUC 

Paragraph header 1 NUC 

Data Division entries 1 NUC 

Area B 1 NUC 

Paragraphs 1 NUC 

Data Division entries 1 HUG 

Continuation of lines 1 NUC 

Nonnumeric literals 1 NUC 

Words and numeric literals 2 NUC 

Comment lines. 1 NUC 

Asterisk (*) comment lines 1 NUC 

Stroke (/) comment lines 1 NUC 
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Multics COBOL contains a number of extensions to the ANSI COBOL language, 
These extensions are a superset ol FIPS High level. They are: 



GENERAL 



Nonprinting characters. 

CONTROL DIVISION. 

All headers defined by AHS to be mandatory are allowed to be missing 
except for PROCEDURE DIVISION. 

Plus sign not required to be surrounded by separators; Comma not 
required to be followed by space to be considered a separator. 



ID/ED 






OBJECT SIGN Clause In SPECIAL NAMES. 
OBJECT IS clause in SPECIAL NAMES. 
DECIMAL-POINT IS DECIMAL-POINT in SPECIAL NAMES. 
In the SELECT clause. 

a. EXTERNAL. 

b. STREAM files. 

c. data-name-2 in FILE STATUS clause. 

d. WITH clause. 

e. ANSI, MULTICS, IBM-DOS, and IBM-OS in ORGANIZATION clause. 

f. Non-cobol characters in internal-filc-name. 
APPLY clause in I-O-COHTROL paragraph. 



DD 



CONSTANT SECTION. 

DEPENDING ON option in RECORD CONTAINS. 

COMP-n in USAGE clause. 

Use of as lower limit for the OCCURS. . .DEPENDING on clause. 

Level indicators other than 01, 77, 88, 66 in Area A. 

Data name following 01 allowed in Area A. 

Interpretation of illegal characters in the PICTURE string as simple 
insertion characters. 

The data description for the object of REDEFINES is allowed to contain 
an OCCURS clause. 
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AS44A 



• 



Non-01 subject of REDEFINES does not necessarily have to specify the 
same number of character positions as the object of the REDEFINES. 



PD 



Piipnp 



• SET to external switches. 

• Literals in the USING statement in the CALL verb (warning given). 

• The relational operators EXCEEDS, EQUALS, and UNEQUAL. 
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LEVEL 68 
MULTICS COBOL REFERENCE MANUAL 

ADDENDUM F 



SUBJECT 

Additions and Changes to the Multics COBOL Reference Manual 

SPECIAL INSTRUCTIONS 

This is the sixth addendum to AS44, Revision 1, dated December 1976. 
Change bars in the margin indicate technical additions and changes; asterisks 
denote deletions. Section XVI (Report Writer) is a new section and Appendix A 
(Reserved Words) has been extensively revised, therefore neither of these sec- 
tions contain change bars. These changes will be incorporated into the next 
revision of the manuaL 

Insert the attached pages into the manual according to the collating instruc- 
tions on the back of this cover. 
Note: 

Insert this cover sheet after the manual cover to indicate the updating 
of the document with Addendum F. 



SOFTWARE SUPPORTED 

Multics Software Release 9.0 



ORDER NUMBER 
AS44-01F 



July 1981 



32043 
5C781 

Printed in US A Honeywell 



COLLATING INSTRUCTIONS 



To update the manual, remove old pages and insert new pages as follows; 



Remove 

Title Page, Preface 
iii through xi 

13-1,13-2 



A-1 through A-3 

i-1 through i-12 

User Remarks Form (AS^tt-OlE) 



Insert 

Title Page, Preface 

iii through x 

xi, blank 

13-1, blank 

13-1.1, 13-2 ■ 

16-1 through 16-56 

A-1 , A-2 

A-3, blank 

i-1 through i-14 

User Remarks Form (AS4i4-01F) 



© Honeywell Information Systems Inc., 1981 
7/81 



File No.: 1L23 
AS1i»F 



SERIES 60 (LuiVEL 68) 

MULTICS COBOL 

REFERENCE MANUAL 

ADDENDUM E 



SUBJECT 

Additions and Changes to the Multics COBOL Reference Manual 

SPECIAL INSTRUCTIONS 

This is, the fifth addendum to AS44, Revision 1, dated December 1976. 

Change bars in the margin indicate technical additions and changes; asterisks 
denote deletions. These changes will be incorporated into the next revision of 
the manual. 

Insert the attached pages into the manual according to the collating instruc- 

a:~ ii I 1 riu: 

I.1UU9 uii ujc ua<i;B. ui una cuvei". 

Note: 

Insert this cover sheet after the manual cover to indicate the updating of 
the document with Addendum E. 



SOFTWARE SUPPORTED 

Multics Software Release 8.0 



ORDER NUMBER 

AS44E, Rev. 1 December 1979 



26352 

4C1279 

Printed in U.S.A. 



Honeywell 



COLLATING INSTRUCTIONS 

To update the manual, remove old pages and insert new pages as follows: 

Remove Insert 

iii , iv iii , iv 

2-1, 2-2 2-1, 2-2 

9-13, 9-1i» 9-13, 9-14 

9-19, 9-20 9-19, 9-20 

i-1 through i-9 i-1 through i-12 



© Honeywell Information Systems Inc., 1979 ^ile No.: 1L23 
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MULTICS COBOL 

REFERENCE MANUAL 

ADDENDUM D 



SUBJECT 

Additions and Changes to the Multics COBOL Reference Manual 



SPECIAL INSTRUCTIONS 

This is the fourth addendum to AS44, Revision 1, dated December 1976. 
This addendum is mainly related to COBOL Standards conformance and 
includes a new description of the debug facility. Change bars in the margin 
indicate technical additions and changes; asterisks denote deletions. Section 
.n-ixi {ueuUg Facility) has been completely rewritten and does not contain 
change bars. These changes will be incorporated into the next revision of the 
manual. 

Insert the attached pages into the manual according to the collating instruc- 
tions on the back of this cover. 

Insert this cover sheet after the manual cover to indicate the updating of the 
document with Addendimi D. 



SOFTWARE SUPPORTED 

Multics Software Release 7. OB 



ORDER NUMBER 

AS44D, Rev. 1 September 1979 



24556 
5C979 
Printed in U.S.A. 



Honeywell 



COLLATING INSTRUCTIONS 



To update the manual, remove old pages and Insert new pages as follows: 



Remove 



Insert 



V through X 
9-9 through 9-12 
9-15 through 9-18 
9-21 through 9-24 
9-39, 9-40 
9-47 through 9-50 
9-59, 9-60 
9-63, 9-64 
12-1, 12-2 
12-5, 12-6 
13-1, 13-2 
A-1 through A- 3 

D-1 , D-2 

i-1 through i-7 



V through xi 

9-9 through 9-12 

9-15 through 9-18 

9-21 through 9-24 

9-39, 9-40 

9-47 through 9-50 

9-59, 9-60 

9-63, 9-64 

12-1, 12-2 

12-5, 12-6 

13-1 through 13-10 

A-1, A-2 

A-3, blank 

D-1, D-2 

i-1 through i-8 

i-9, blank 



The information and specifications in tliis document are 
subject to cheinge without notice. This document contains 
information about Honeywell products or services that may 
not be available outside the United States. Consult your 
Honeywell Marketing Representative. 



(§) Honeywell Information Systems Inc., 1979 
9/79 



File No.: 1L23 
AS44D 



SfiRIES 60 (LiiVJiil. 68) 

MULTICS COBOL 

REFERENCE MANUAL 

ADDENDUM C 



SUBJECT 



Tbe Addendum B Cover Sheet Was Printed Without Identifying The Associated 
"Software Supported — Multics Software Release 7.0" Information 



SPECIAL INSTRUCTIONS 

This is the third addendum to AS44, Revision 1, dated December 1976. 

Insert this page into the manual according to the collating instructions on the 
back of the cover. 



SOFTWARE SUPPORTED 

Multics Software Release 7.0 



ORDER NUMBER 

AS44C, Rev. 1 May 1979 



23879 



S.inv.s.A. Honeywell 



COLLATING INSTRUCTIONS 

To update the manual, remove old pages and insert new pages as follows: 

Remove ^"sert 

Not applicable This cover sheet after the manual 

cover to indicate the updating of 
the document with Addendum C. 



(^ 1979, Honeywell Information Systems Inc, 
05/79 



File No.: 1L23 
ASi)4C 



SERIES 60 (LEVEL 68) 
MTTT Tinq r«oic>OT 

REFERENCE MANUAL 
ADDENDUM B 



SUBJECT 

Additions and Changes to the Multics COBOL Reference Manual 



SPECIAL INSTRUCTIONS 

This is the second addendum to AS44, Revision 1, dated December 1976. 
This addendum is related to FIPS-21-2 and includes ALTERNATE RECORD 
KEY and COPY . . . REPLACING (compliance), and REPLACE verb (exten- 
sion). Throughout the addendimi, change bars in the margin indicate technical 
additions and changes; asterisks denote deletions. These changes will be incor- 
porated into the next revision of the manual. 

Insert the attached nasres intn thp mnminl ani-nnW-na tn tVm ^nllof^nrr i-n^t-^-.^ 
tions on the back of this cover. 
Note: 

Insert this cover sheet after the manual cover to indicate the updating 
of the document with Addendimi B. 



ORDER NUMBER 

AS44B, Rev. 1 January 1979 



23084 
5C379 
Printed in U.S.A. 



Honeywell 



COLLATING INSTRUCTIONS 



To update this manual, remove old pages and Insert new pages as follows; 



Remove 

V through X 

2-1 ,2-2 

9-11 through 9-18 

9-51 through 9-62 



9-65, blank 

12-1 through 12-3 

i-1 through i-7 



Insert 

V through X 
2-1,2-2 

9-11 through 9-18 
9-18.1 , blank 
9-51 through 9-56 
9-57, blank 
9-57.1 , 9-58 
9-59, 9-60 
9-61 , blank 
9-61.1 , 9-62 

9-65, blank 

12-1 through 12-8 

i-1 through i-7 



(e) 1.979, Honeywell Information Systems Inc. 
01/79 



File No.: 1L23 
AS4MB 



SERIES 60 (LEVEL 68) 
MULTICS COBOL REFERENCE MANUAL 

ADDENDUM A 



SUBJECT 

Additions and Changes to the Multics COBOL Reference Manual 



SPECIAL INSTRUCTIONS 

This is the first addendum to AS44, Revision 1, dated December 1976. 
Insert the attached pages into the manual according to the collating instruc- 
tions on the back of this cover. The following are new, or have been exten- 
sively revised, and do not contain change bars: 

Section 10 

Section 15 

Appendix D 

Index 
The remainder of the pages in this addendum have change bars in the margin 
to indicate technical additions and changes; asterisks denote deletions. 
These changes will be incorporated into the next revision of the m.anual. 

Note: 

Insert the cover sheet after the manual cover to indicate the 
updating of the document with Addendum A. 



SOFTWARE SUPPORTED 

Multics Software Release 6.0 

ORDER NUMBER 

AS44A, Rev. 1 October 1977 



33110 

2C1181 

Printed In U.S.A. 



Honeywell 



COLLATING INSTRUCTIONS 



To update the manual, remove old pages and insert new pages as follows: 



Remove 



Insert 



Title page. Preface 

iii through x 

1-5 through 1-10 



2-3 through 2-12 



2- 


-15, 


, 2-16 






2- 


-21 , 


, 2-22 






3- 


-3, 


3-'4 






1- 


-1, 


'4-2 






5- 


-3, 


blank 






6- 


-5 through t 


»- 


10 


6- 


-19 


through 


6- 


-22 


6- 


-25, 


, 6-26 






6- 


•31 


through 


6. 


-31 


6- 


-37, 


, 6-38 






6- 


-39 


through 


6. 


-H2 


7- 


-11 , 


, 7-12 






7- 


-29 


, 7-30 






7- 


-37 


, 7-38 






9- 


-5, 


9-6 







9-9 through 9-20 
9-23 through 9-26 
9-31, 9-32 
9-37 through 9-10 



9-15, 9-16 
9-61, 9-62 
10-1 through 
11-5, 11-6 
m_5, ni_6 



10-13 



A-1, A-2 

B-1 through B-17 

i-1 through i-6 



Title page. Preface 

iii through x 

1-5, blank 

1-5.1, 1-6 

1-7 through 1-11, blank 

2-3 through 2-12 

2-14.1, 2-11.2 

2-11.3, blank 

2-15, 2-16 

2-21, 2-22 

3-3, 3-1 

1-1 , H-2 

5-3, 5-1 

6-5 through 6-10 

6-19 through 6-22 

6-25, 6-26 

6-26.1, blank 

6-31 through 6-31 

6-37, blank 

6-37.1, 6-38 

6-39 through 6-42 

7-n, 7-12 

7-29/30, blank 

7-37, 7-38 

9-5, 9-6 

9-8.1, blank 

9-9 through 9-20 

9-23 through 9-26 

9-31, 9-32 

9-37, 9-38 

9-38.1, blank 

9-39, 9-10 

9-15. 9-16 

9-61, 9-62 

10-1 through 10-16 

11-5, 11-6 

m_5, 1H-6 

15-1 through 15-25, blank 

A-1, A-2 

B-1 through B-17 , blank 

D-1 through D-15,blank 

i-1 through i-7 



The informiition and ipecificatioM in thii document are 
Bibiect to change without noUce. Thia document contwna 
information about Honeywell producU or aervicea that may 
not be avaitable outoide the United Statea. Conault your 
Honeywell Marketing RepreaenUtive. 



©1978, Honeywell Information Systems Inc. 
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INDEX 



ABSOLUTE 

absolute line number 16-36 

ACCEPT MESSAGE COUNT statement 
15-12.001 

ACCEPT statement 7-15 

ACCESS 

ACCESS MODE IS SEQUENTIAL 9-15 
dynamic access mode 9-2 
random access mode 9-2 
sequential access mode 9-2 

ADD statement 7-17 

ADDITIONAL option 9-24 

ADVANCING phrase 9-59, 15-24 

AFTER phrase 7-35, 9-62, 15-24 

alignment rules 2-14 

ALL 

ALL literal 2-10 
SEARCH ALL 2-18, 8-12 

ALL phrase 7-36, 7-60 

ALL PROCEDURES phrase 13-4 

ALL REFERENCES OF phrase 13-5 

alphabetic test 7-6 

ALTER statement 7-19 

in segmented programs 11-5 

APPLY clause 9-17 

arithmetic 7-12 

arithmetic expression 7-1, 7-20 
arithmetic statements 7-12 
binary arithmetic operators 7-1 
Combination of Symbols in Arithmetic 

Expressions 7-3 
Exponentiation in Arithmetic 

Expressions 7-14 
Multiple Results in Arithmetic 

Statements 7-13 
unary arithmetic operators 7-1 



ASCENDING phrase 10-8, 10-13 

ASSIGN clause 9-15, 9-22, 10-2 

AT END phrase 8-12, 9-50, 9-58, 10-11 

ATTACH-OPTIONS clause 9-23 

Attributes 2-22 

BEFORE phrase 7-35, 9-62, 15-24 

binary arithmetic operators 7-1 

BLANK WHEN ZERO clause 6-18 

BLOCK CONTAINS clause 9-28 

Brackets and Braces 4-2 

branching procedure 7-27 

BREAK 

control break 16-31, 16-48, 16-52 

BY phrase 7-45 

CALL statement 14-1, 14-6 

CANCEL statement 14-8 

CATALOG-NAME clause 9-15, 9-16, 9-23 

CD 

input CD 15-8 

level indicator CD 15-4, 15-6 

output CD 15-10 

CHARACTER 

character set 2-1 
Nonprinting Characters 2-7 
PICTURE Character Precedence Chart 

6-30 
punctuation characters 2-2, 4-3 
Special Characters 4-3 

character-string 2-3, 6-22 

picture character-strings 2-11 

CHARACTERS phrase 7-34 

class condition 7-6 
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classes of data 2-13 

CLAUSE 

APPLY clause 9-17 

ASSIGN 9-22 

ASSIGN clause 9-15, 10-2 

ATTACH-OPTIONS clause 9-23 

BLANK WHEN ZERO clause 6-18 

BLOCK CONTAINS clause 9-28 

CATALOG-NAME clause 9-15, 9-15, 

9-23 
CODE 16-29 
CODE-SET clause 9-30 
COLUMN NUMBER 16-30 
COMPUTATIONAL 5-3 
COMPUTATIONAL clause 5-3 
CONTROL 16-31 
CURRENCY SIGN clause 6-26 
CURRENCY SIGN IS literal clause 

6-12 
DATA RECORDS clause 9-31 
data-name 16-33 
data-name clause 6-19 
DEBUGGING MODE 13-2 
DECIMAL-POINT IS COMMA clause 6-12, 

6-25 
DEPENDING ON clause 9-36 
DESTINATION COUNT clause 15-7 
DESTINATION TABLE OCCURS clause 

15-8 

iyj.orL.rti oxun t;i.ciuSe O—d 

END KEY clause 15-5 

ERROR KEY clause 15-7 

EXTERNAL clause 9-47 

FILE IS PERMANENT clause 9-23 

FILE IS TEMPORARY clause 9-23 

FILE STATUS clause 9-16 

FILLER clause 6-19 

FOR REMOVAL clause 9-39 

GENERATE DESCRIPTOR clause 5-4 

GROUP INDICATE 16-34 

INITIAL clause 15-4 

JUSTIFIED clause 6-20 

LABEL RECORDS clause 9-32 

LINAGE clause 9-33 

LINE NUMBER 16-35 

MESSAGE COUNT clause 15-5 

MESSAGE DATE clause 15-5 

MESSAGE TIME clause 15-5 

NEXT GROUP 16-37 

NO DETACH AT CLOSE clause 9-23 

NUMERIC LIMIT clause 5-3 

OCCURS clause 6-14, 8-5 

ORGANIZATION clause 9-15 

OUTPUT-MODE clause 9-23 

PAGE 16-38 

PICTURE clause 6-12, 6-14, 6-22 

PROGRAM COLLATING SEQUENCE clause 

2-9 
RECORD CONTAINS clause 9-36 
RECORD DEPENDING ON clause 9-61 
RECORD KEY clause 9-18 
REDEFINES clause 6-31, 6-42, 8-7 
RENAMES clause 6-33 
REPORT 16-41 
RESERVE clause 9-15 
SAME AREA . 9-20 
SAME clause 9-19 



CLAUSE (cont) 

SAME RECORD AREA 9-20 

SAME RECORD AREA clause 9-54, 9-60, 

10-4, 10-10 
SAME SORT-MERGE AREA clause 10-3, 

10-4 
SEGMENT -LIMIT clause 11-4 
SELECT clause 9-47 
SIGN clause 6-35 

SIGN IS SEPARATE Clause 6-35, 9-30 
SOURCE 16-42 
STATUS KEY 15-5 
STATUS KEY clause 15-7 
SUM 16-43 

SYMBOLIC DESTINATION clause 15-7 
SYMBOLIC QUEUE clause 15-5 
SYMBOLIC SOURCE clause 15-5 
SYNCHRONIZED clause 6-37 
TEXT LENGTH clause 15-5, 15-7 
TYPE 16-4 6 

USAGE clause 5-3, 6-38, 8-8 
USAGE IS INDEX clause 6-14, 8-8 
VALUE clause 6-14, 6-40 
VALUE OF clause 9-38 

CLOSE statement 9-39 

CMCS 

Message Control System (CMCS) 15-1 
Relationship of COBOL Program to the 
CMCS 15-2 

COBOL 

COBOL data types 2-13 
COBOL WORDS 2-3 

Relationship of COBOL Program to the 
CMCS 15-2 

CODE 

CODE clause 16-29 

CODE-SET clause 6-35, 9-30 

COLLATING SEQUENCE phrase 10-8, 10-14 

COLUMN 

COLUMN NUMBER 16-35 
COLUMN NUMBER clause 16-30 

COMMENT 

comment lines 3-4 
comment- en tries 2-11 
comment-entry 6-3 

COMMUNICATION 

Communication Description - Complete 

Entry Skeleton 15-3 
COMMUNICATION FACILITY DATA DIVISION 

- COMMUNICATION SECTION 15-2 
Communication Section 1-5, 1-5.1 
Communication Status Key/Error Key 

Conditions 15-12 
description of interprogram 

communication 14-1 
DESCRIPTION OF THE COMMUNICATION 

FACILITY 15-1 
Procedure Division for interprogram 

communication 14-5 
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COMMUNICATION (cont) 

procedure division for thg 

communication facility 15-12 

COMP-6 6-14 

COMP-7 6-14 

comparison operation 7-34 

COM PILE -TIME 

Compile-Time Switch 13-1.1 

COMPILER-DIRECTING 

compiler-directing sentence 1-8 

COMPUTATIONAL clause 5-3 

COMPUTE statement 7-20 

CONDITION 

Abbreviated Combined Relation 

Conditions 7-9 
class condition 7-6 
Combinations of Conditions, Logical 

Operators, and Parentheses 7-9 
combined and negated combined 

conditions 7-8 
Communication Status Key/Error Key 

Conditions 15-12 
Complex Conditions 7-7 
Condition Evaluation Rules 7-10 
condition-name condition 7-6 
Condition-Name rules 6-41 
negated simple conditions 7-8 
relation condition 7-4, 8-9 
sign condition 7-7 
Simple Conditions 7-3 
switch-status condition 7-6 

CONDITION-NAME 2-4, 2-20 

condition-name condition 7-6 
Condition-Name Rules 6-41 
condition-names 8-11 

CONDITIONAL 

conditional expressions 7-3 
conditional sentence 1-8 
conditional variable ?-^ 2-'>^ 
2-20, 6-41, 7-6 

Configuration Section 1-3, 6-4 

CONNECTION 

logical connection 15-16 

Connectives A-1 , 2-6 s 

CONSOLE 6-10, 7-21 

CONSOLE. 7-15 

constant 2-6 

Constant Section 1-5, 6-14 
figurative constant 6-41, 7-21 
7-33, 7-40, 7-54, 7-60, A-1 
values 2-9 



Continuation of Lin 



es 



3-2 



CONTROL 16-51 

control break 16-31, 16-48, 16-52 
CONTROL clause 16-31 
Control Division 1=2 5-1 
CONTROL footing" 16-39, 16-44 
CONTROL FOOTING phrase 16-48 
CONTROL HEADING 16-38 
CONTROL HEADING phrase 16-47 
Message Control System (CMOS) 15-1 
Report Writer Control System (RWCS) 

1 6-1 
Segmentation Control 11-2 
Transfer of Control 2-21, 7-27 

7-46, 10-8, 10-14, 11-2, 13-7 
(CALL) 14-1 

COPY statement 2-21, 12-2 

CORRESPONDING phrase 7-12, 7-39 

COUNT IN phrase 7-59 

COUNTER 

sum counter 16-44 

crossfooting 16-44 

CURRENCY 

currency symbol 6-27 

CURRENCY SIGN clause 6-26 

CURRENCY SIGN IS literal clause 6-12 

current record pointer 9-2, 9-51 

DATA 

Classes of Data 2-13 
COBOL data types 2-13 
computer independent data 

description 2-11 
Data Allocation Rules 2-14.1 
data description - complete entry 

skeleton 6-15 
DATA RECORDS 6-31 
hierarchy of data 6-21 
incompatible data 7-14 
Index data item 8-8 
Interprograra Data Storage 14-2 
low-volume data 7-15 
records 6-31 

rules for positioning data 2-14 
types 2-13 

DATA DIVISION 1-4 

COMMUNICATION FACILITY DATA DIVISION 

- COMMUNICATION SECTION 15-2 
entries 3-3 
for input/output 9-25 
for sort-merge 10-5 
for table handling 8-5 
FOR THE NUCLEUS 6-13 
FOR THE REPORT WRITER 16-3 
interprograra communication data 

division - linkage section 

14-3 



7/81 



i-3 



AS44F 



DATA RECORDS clause 6-31, 9-31 

data-name clause 6-19 

DATE 7-16 

DATE-COMPILED paragraph 6-3 

DAY 7-16 

DAY-OF-WEEK 7-16 

DEBUG-CONTENTS 13-6 

DEBUG-ITEM 13-6, 13-1.1 

DEBUG-NAME 13-6 

DEBUGGING 

Debugging Lines 13-8 
debugging sections 13-3 
ENVIRONMENT DIVISION FOR DEBUGGING 

13-2 
PROCEDURE DIVISION FOR DEBUGGING 

13-3 
USE FOR DEBUGGING Statement 13-3 

DEBUGGING MODE Clause 13-2 

DECIMAL-NAME IS COMMA clause 6-25 

DECIMAL-POINT IS COMMA clause 6-12 

DECLARATIVES 1-7, 3-4 
END DECLARATIVES 3-4 

DEFAULT 

default option 4-2 
Default Section 5-1 

DELETE statement 9-44 

DELIMITED BY phrase 7-55, 7-59 

DELIMITER IN phrase 7-59 

delimiters 

pseudo-text 2-2 

DENSITY option 9-24 

DEPENDING ON clause 9-36 

DEPENDING ON phrase 9-61 

DESCENDING phrase 10-8, 10-14 

DESTINATION 

SYMBOLIC reSTINATION 15-15, 15-17 

DESTINATION COUNT clause 15-7 

DESTINATION TABLE OCCURS clause 15-8 

DETAIL 16-34, 16-38 
DETAIL phrase 16-48 
FIRST lETAlL phrase 16-39 
LAST DETAIL phrase 16-4 



DETAIL (cont) 

TYPE DETAIL 16-51 

DISABLE 

INPUT 15-10 
OUTPUT 15-10 

DISABLE OUTPUT statement 15-10 

DISABLE statement 15-14 

DISCONNECTION 

logical disconnection 15-14 

DISPLAY SIGN clause 5-2 

DISPLAY statement 7-21 

DIVIDE statement 7-22 

DIVISION 

Control Division 1-2, 5-1 

division header 3-3 

division, section, and paragraph 

formats 3-3 
identification division 1-3 
identification division for the 

nucleus 6-1 
see also DATA DIVISION, ENVIRONMENT 

DIVISION, PROCEDURE DIVISION 

dynamic access mode 9-2 

EDITING 

Editing Rules 6-26 

editing signs 2-14 

Fixed Insertion Editing 6-27 

Floating Insertion Editing 6-27, 

6-26. 1 
numeric edited 2-13, 6-23 
Simple Insertion Editing 6-26.1 
Special Insertion Editing 6-27 
Zero Suppression Editing 6-28 

EGI 15-23 

ELEMENT 

elements 4-2 

table element 2-17, 8-1, 8-10, 8-16 

ELEMENTARY 

elementary item 2-12, 6-19, 6-22, 

6-34, 6-38 
elementary move 7-40 

ellipsis 4-2 

ELSE NEXT SENTENCE phrase 7-27 

ELSE phrase 7-27 

EMI 15-23 

ENABLE 

INPUT 15-10 
OUTPUT 15-10 

ENABLE OUTPUT statement 15-10 
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ENABLE statement 15-16 

END DECLARATIVES 3-H 

END KEY clause 15-5 

Environment Division 1-3 
FOR DEBUGGING 13-2 
for in put /out put 9-9 
for sort-merge - in put /out put 

section 10-2 
for the nucleus 6-4 

ERROR 9-58 

Error Processing 9-8 

non- input/output errors 7-14 

ERROR KEY clause 15-7 

ESI 15-23 

EXIT 7-46 

EXIT PROGRAM 2-22, 14-2 

EXIT PROGRAM statement 14-9 

EXIT statement 7-25 

EXPLICIT 

explicit and implicit specifications 
2-20 

EXPRESSION 

arithmetic expression 7-1, 7-20 
Combination of Symbols in Arithmetic 

Expressions 7-3 
conditional expressions 7-3 
Exponentiation in Arithmetic 

Expressions 7-14 

EXTEND phrase 9-47 

EXTERNAL clause 9-47 

Figurative Constant 6-41, 7-21, 7-33, 
7-40, 7-54, 7-60, A-1 
values 2-9 

FILE 

conceptual characteristics of a file 

2-11 
description of file input/output 

9-1 
file description - complete entry 

skeleton 9-26 
File Description Entry For The 

Report Writer 16-4 
File Section 1-5, 9-25 
File Section for the Report Writer 

16-3 
FILE STATUS 9-2 
Indexed Files 9-12, 9-65 
Label Processing for Tape Files 

9-8. 1 
Logical Records and Files 2-11 
physical aspects of a file 2-11 
Relative Files 9-11, 9-64 
Sequential and Stream Files 9-62 



FILE (cont) 

sequential files 9-10 
sort-merge file description 10-5 
Stream Files 9-13 

FILE IS PERMANENT clause 9-23 

FILE IS TEMPORARY clause 9-23 

FILE STATUS clause 9-16 

FILE -CONTROL paragraph 9-10 
for sort-merge 10-2 

FILE-ID 9-38 

FILLER clause 6-19 

FINAL 16-43, 16-46 

FINAL phrase 16-31.001 

FIRST 

FIRST DETAIL phrase 16-39 

fixed insertion editing 6-27 

fixed-length record 9-17 

floating insertion editing 6-27, 
6-26.1 

FLR 9-17 

FOOTING 

CONTROL FOOTING 16-39, 16-44 

CONTROL FOOTING phrase 16-48 

FOOTING phrase 16-40 

PAGE FOOTING 16-39 

PAGE FOOTING phrase 16-4 8 

REPORT FOOTING 16-39 

REPORT FOOTING phrase 16-48 

FOR REMOVAL clause 9-39 

FORCE option 9-24 

FORMAT 

common phrase in statement formats 

7-11 
definition of a general format 4-1 
division, section, and paragraph 

formats 3-3 
reference format 3-1 

FORWARD 

rolling forward 16-44 

FROM phrase 7-45, 9-55, 9-60, 10-10 

general rules 4-1 

GENERATE 16-31, 16-44, 16-47, 16-55 
GENERATE statement 16-51 

GENERATE DESCRIPTOR clause 5-4 

GENERATION 9-23 
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GIVING phrase 7-23, 10-9, 10-16 

GO TO statement 7-26 

GROUP 

GROUP INDICATE clause 16-34 

NEXT GROUP clause 16-37 

Report Group Description - Complete 

Entry Skeleton 16-8 
REPORT GROUP DESCRIPTION ENTRY 16-3 

group item 2-13, 6-34, 6-38, 8-6 

HEADER 

division header 3-3 
paragraph header 3-3 
Procedure Division Header 14-5 
section header 3-3 

HEADING 

CONTROL HEADING 16-38 

CONTROL HEADING phrase 16-47 

HEADING phrase 16-39 

PAGE HEADING 16-38 

PAGE HEADING phrase 16-47 

REPORT HEADING 16-38 

REPORT HEADING phrase 16-47 

I-O phrase 9-47 

I-0-CONTROL paragraph 9-19 
for sort-merge 10-3 

Identification Division 1-3 
for the nucleus 6-1 

identifier 1-8, 2-19 

IF statement 7-27 

imperative sentence 1-9 

IMPLICIT 

explicit and implicit specifications 
2-20 

independent segment 7-51, 11-2 

INDEX 

Index data item 8-8 
USAGE IS INDEX 7-12 

index-name 7-45 

index-name settings 8-12 

INDEXED 

Indexed Files 9-12, 9-65 

INDEXED BY phrase 2-18, 8-6, 8-13, 
8-15 

indexing 2-18, 8-3 

INDICATE 

GROUP INDICATE clause 16-34 

INDICATORS 

level indicator CD 15-4, 15-6 



INDICATORS (cont) 

level indicator FD 9-27 
level indicator SD 10-5 
Level indicators 3-3 

INITIAL 

initial value 6-42 

Linkage Initial Values 14-4 

working-storage initial values 6-14 

INITIAL clause 15-4 

INITIATE 16-7, 16-52, 16-55 
INITIATE statement 16-53 

INPUT phrase 15-14, 15-16 

input procedure 10-14 

INPUT/OUTPUT 

Data Division for input/output 9-25 
description of file input/output 

9-1 
Environment Division for 

in put /out put 9-9 
Environment Division for sort-merge 

10-2 
1-0 mode 9-44 
Input-Output Section 1-4, 9-9 

Input/Output Techniques 9-21 
Procedure Division for input/output 
9-39 

INSPECT statement 7-31 

INTERPROGRAM 

description of interprogram 

communication 14-1 
interprogram communication data 

division - linkage section 

14-3 
Interprogram Data Storage 14-2 

INTO phrase 9-51, 10-11 

INVALID KEY phrase 9-8, 9-44, 9-50, 
9-54, 9-56, 9-58, 9-60 

JUSTIFIED clause 6-20 

KEY 8-11 

Communication Status Key/Error Key 

Conditions 15-12 
KEY WORDS 2-6, A-1 
RELATIVE KEY 9-52, 9-57 
STATUS KEY 15-13 
status key 1 9-3 
status key 2 9-3 

KEY IS phrase 8-6 

KEY phrase 9-57, 10-7, 10-13 

Label Processing for Tape Files 9-8.1 

LABEL RECORDS clause 9-32 
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LANGUAGE CONCEPTS 2-1 

LAST 

LAST DETAIL phrase 16-iiO 

LEADING phrase 7-36 



LENGTH 



15-22 



15-6 



LEVEL 

Concept of levels 2-12 
level 01 15-^1, 15-6 
level 66 6-17 
level indicator CD 15-1, 
level indicator FD 9-27, 16-5 
level indicator SD 10-5 
Level indicators 3-3 
level-number 3-3, 6-16, 6-21, 16-10 
Level-number 66 6-21, 6-33 
Level-number 77 6-14, 6-21, 14-3 
level-number 88 6-17, 6-21 
level-number 66, 77, or 88 7-12 
level-numbers 4-2 

Special level-number 66, 77, and 88 
2-12 

LINAGE clause 9-33 

LINAGE-COUNTER Register 9-8 

LINE 

absolute line number 16-36 
LINE NUMBER 16-37 
LINE NUMBER clause 16-35 
relative line number 16-36 

LINE-COUNTER 16-2 

LINE-COUNTER Rules 16-7 

LINKAGE 

Linkage Initial Values 14-4 
Linkage Records 14-4 
Linkage Section 1-5 

inter program communication data 
division 14-3 
Noncontiguous Linkage Storage 14-3 

LITERAL 

ALL literal 2-10 
literals 2-7 
Nonnumeric Literals 2-7 
Numeric Literals 2-9 
STOP literal 7-53 

LOGICAL 

Combinations of Conditions, Logical 

Operators, and Parentheses 7-9 
logical connection 15-16 
logical disconnection 15-14 
logical operators 7-7 
logical positioning 9-56 
logical record 2-12 
Logical Records and Files 2-11 

LOWERCASE 

lowercase words 4-2 

Uppercase and Lowercase Letters 2-1 



LOWERCASE (cont) 

uppercase/lowercase output 3-4 

MERGE statement 10-6, 13-7 

message 15-22 

Message Control System (CMCS) 15-1 
MESSAGE COUNT 15-13 
message segment 15-22 

MESSAGE COUNT clause 15-5 

MESSAGE DATE clause 15-5 

MESSAGE phrase 15-9, 15-19 

MESSAGE TIME clause 15-5 

MNEMONIC-NAME 2-5 

MODE 

ACCESS MODE IS SEQUENTIAL 9-15 

DEBUGGING MODE Clause 13-2 

dynamic access mode 9-2 

I-O mode 9-44 

random access mode 9-2 

sequential access mode 9-2 

MODIFICATION 9-23 

MOVE 7-5, 7-33, 7-61, 9-60, 10-10, 
10-11, 16-42, 16-44 
elementary move 7-40 

MOVE statement 7-5, 7-39 

MULTIPLY statement 7-42 



NEXT phrase 9-50 

NEXT SENTENCE phrase 7-27 

NO DATA phrase 15-18 

NO DETACH AT CLOSE clause 9-23 

NO REWIND phrase 9-39 

NONCONTIGUOUS 

Noncontiguous Linkage Storage 14-3 

NONNUMERIC 

Nonnumeric Literals 2-7 
Nonnumeric Operands 7-5 

Nonprinting Characters 2-7 

nonstandard positioning 6-20 

NUCLEUS 

Data Division for the nucleus 6-13 
environment division for the nucleus 

6-4 
identification division for the 
nucleus 6-1 
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NUCLEUS (cont) 

Procedure Division for the Nucleus 
7-1 



NUMBER 

absolute line number 16-36 
COLUMN NUMBER 16-35 
COLUMN NUMBER clause 16-30 
LINE NUMBER 16-37 
LINE NUMBER clause 16-35 
occurrence number 8-3, 8-7, 
relative line number 16-36 
Sequence Numbers 3-2 



8-15 



Numeric 2-13, 6-23 
Numeric Edited 2-13, 
Numeric Literals 2-9 
Numeric Operands 7-5 
NUMERIC test 7-6 



6-23 



NUMERIC LIMIT clause 5-3 

OBJECT 

OBJECT IS DECIMAL-POINT 6-12 
object program 14-1 

OBJECT-COMPUTER paragraph 6-6 

OBJECT-TIME 

Object-Time Switch 13-2 

occurrence number 8-3, 8-7, 8-15 

OCCURS 2-17, 6-31, 6-33, 6-42, 7-12, 
8-12, 16-31 

OCCURS clause 6-14, 6-31, 6-33, 6-42, 
8-5 

ON OVERFLOW phrase 7-56, 7-62 

OPEN statement 9-45 

OPERANDS 

composite of operands 7-12 
Equal or Unequal Sizes 7-5 
Nonnumeric Operands 7-5 
Numeric Operands 7-5 
Overlapping Operands 7-13, 8-9 
temporary operands 7-13 

operation 

comparison 7-34 

operational signs 2-14 

OPERATOR 

binary arithmetic operators 7-1 
Combinations of Conditions, Logical 

Operators, and Parentheses 7-9 
logical operators 7-7 
relational operator 7-4, 9-57 
unary arithmetic operators 7-1 

option 

ADDITIONAL 9-24 
default 4-2 
DENSITY 9-24 



option (cont) 
DEVICE 9-24 
FORCE 9-24 
PROTECT 9-24 
RETAIN 9-24 

Optional Words A-1 , 2-6 

ORGANIZATION 

stream organization 9-1 

ORGANIZATION clause 9-15 

OUTPUT 

DISABLE 15-10 

ENABLE 15-10 

OPEN OUTPUT 16-41 

output CD 15-10 

OUTPUT PROCEDURE 10-8, 10-15 

uppercase/lowercase output 3-4 

OUTPUT phrase 15-14, 15-16 

OUTPUT-MODE clause 9-23 

overlapping operands 7-13, 8-9 

PAGE 

NEXT PAGE phrase 16-35, 16-37 

9-62, 16-35. 16-37 

PAGE clause 16-38 

page ejection 3-4 

PAGE FOOTING 16-39 

PAGE FOOTING phrase 16-48 

PAGE HEADING 16-38 

PAGE HEADING phrase 16-47 

Page Regions 16-40 

PAGE phrase 15-24 

PAGE-COUNTER 16-2 

PAGE-COUNTER Rules 16-6 

PARAGRAPH 3-3 

DATE-COMPILED 6-3 

division, section, and paragraph 

formats 3-3 
FILE-CONTROL 9-10 
FILE-CONTROL paragraph for 

sort-merge 10-2 
format 3-3 
OBJECT-COMPUTER 6-6 
paragraph header 3-3 
paragraph-name 3-3 
PROGRAM-ID 6-2 
SOURCE-COMPUTER 6-5 
SPECIAL-NAMES 6-8 

PARAGRAPH-NAME 2-5, 3-3 

PARENTHESES 7-2, 7-10 

Combinations of Conditions, Logical 
Operators, and Parentheses 7-9 

PERFORM statement 2-18. 2-21. 7-44, 
8-15 
in segmented programs 11-5 
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PERFORM.. .TIMES 7-47 

PERFORM. . .UNTIL 7-H7 

PERFORM... VARYING 7-47 

PHRASE 

ADVANCING 9-59, 15-24 

AFTER 7-35, 9-52, 15-24 

ALL 7-36, 7-60 

ALL PROCEDURES 13-4 

ALL REFERENCES OF 13-5 

ASCENDING 10-8, 10-13 

AT END 8-12, 9-50, 9-58, 10-11 

BEFORE 7-35, 9-62, 15-2 4 

BY 7-4 5 

CHARACTERS 7-34 

COLLATING SEQUENCE 10-8, 10-14 

common phrase in statement formats 

7-11 
CONTROL FOOTING phrase 16-48 
CONTROL HEADING phrase 16-47 
CORRESPONDING 7-12, 7-39 
COUNT IN 7-59 
DELIMITED BY 7-55, 7-59 
DELIMITER IN 7-59 
DEPENDING ON 9-61 
DESCENDING 10-8, 10-14 
DETAIL phrase 16-48 
ELSE 7-27 

ELSE NEXT SENTENCE 7-27 
EXTEND 9-47 
FINAL phrase 16-31 
FIRST DETAIL phrase 16-39 
FOOTING phrase 16-40 
FROM 7-45, 9-55, 9-60, 10-10 
GIVING 7-23, 10-9, 10-16 
HEADING phrase 16-39 
I-O 9-47 

INDEXED BY 2-16, 8-6, 8-13, 8-15 
INPUT 15-14, 15-16 
j:nT0 9-51, 10-11 
INVALID KEY 9-8, 9-44, 9-50, 9-54, 

9-56, 9-58, 9-60 
KEY 9-57, 10-7, 10-13 
KEY IS 8-6 

LAST DETAIL phrase 16-40 
LEADING 7-36 
MESSAGE 15-9, 15-19 
NEXT 9-50 

NEXT PAGE phrase 16-35, 16-37 
NEXT SENTENCE 7-27 
NO DATA 15-18 
NO REWIND 9-39 
ON OVERFLOW 7-56, 7-62 
OUTPUT 15-14, 15-16 
PAGE 15-24 

PAGE FOOTING phrase 16-4 8 
PAGE HEADING phrase 16-47 
POINTER 7-56, 7-61 
REMAINDER 7-23 
REPLACING 7-37 
REPORT FOOTING phrase 16-48 
REPORT HEADING phrase 16-47 
RESET phrase 16-43 
ROUNDED 7-11 
RUN 7-53 
SEGMENT' 15-9, 15-19 



PHRASE (cont) 
SIZE 7-55 

SIZE ERROR 7-11, 7-24 
TALLYING 7-62 
TAPE-OPTIONS 9-23 
UPON 7_21 

UPON phrase 16-43 

USING 8-8, 10-15, 14-3, 14-5, 14-6 

VARYING 8-13 

WHEN 8-12 

physical record 2-11 

PICTURE 2-3, 6-18, 6-35, 6-38, 6-40, 
7-5, 7-11, 7-14, 7-40, 7-54, 7-59 
PICTURE Character Precedence Chart 

6-30 
picture character-strings 2-11 

PICTURE clause 5-12, 6-14, 6-22 

PLUS 16-37, 16-35 

POINTER 

Current Record Pointer 9-2, 9-51 

POINTER phrase 7-56, 7-61 

POSITIONING 

logical positioning 9-56 
nonstandard positioning 6-20 
rules for positioning data 2-14 
vertical positioning 9-59, 15-24, 
16-35, 16-37 

PROCEDURE 1-7 

INPUT PROCEDURE 10-14 
OUTPUT PROCEDURE 10-8, 10-15 
procedure branching 7-27 
Reel/Unit Swap Procedure 9-8.1 

PROCEDURE DIVISION 1-6 
FOR DEBUGGING 13-3 
for in put/ out put 9-39 
for interprogram communication 14-5 
for sort-merge 10-6 
for table handling 8-9 
for the communication facility 

15-12 
for the Nucleus 7-1 
FOR THE REPORT WRITER 16-51 
Header 14-5 
References 2-21 

procedure-name 1-7 

PROGRAM 

EXIT PROGRAM 2-22, 14-2 
flow 

restrictions 11-5 
object program 14-1 
program modularity 14-1 
Program Segments 11-1 
Relationship of COBOL Program to the 

CMCS 15-2 
RESTRICTIONS ON PROGRAM FLOW 11-5 
source program 14-1 
STRUCTURE OF PROGRAM SEGMENTS 11-3 
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PROGRAM COLLATING SEQUENCE clause 2-9 

PROGRAM-ID paragraph 6-2 

program-name 6-2 

PROTECT option 9-24 

pseudo-text delimiters 2-2 

punctuation characters 2-2, 4-3 

PURGE statement 15-17 

qualification rules 2-16 

QUEUE 

queue structure 15-18 

SYMBOLIC QUEUE 15-14, 15-16, 15-18 ' 

random access mode 9-2 

RD 16-6 

READ statement 9-50 

RECEIVE statement 15-8, 15-18 

RECORD 

Current Record Pointer 9-2, 9-51 

DATA RECORDS 6-31 

fixed-length record 9-17 

Linkage Records 14-4 

logical record 2-12 

Logical Records and Files 2-11 

physical record 2-11 

Record Concepts 2-12 

record description 2-12 

Record Description Structure 9-25 

Record Ordering 10-1 

variable-length 9-17 

working-storage records 6-14 

RECORD CONTAINS clause 9-36 

RECORD DEFENDING ON clause 9-61 

RECORD KEY clause 9-18 

REDEFINES clause 6-31, 6-42, 8-7 

Reel/Unit Swap Procedure 9-8.1 

REFERENCE 

PRODEDURE DIVISION 2-21 
reference format 3-1 
References to Table Items 8-2 
uniqueness of reference 2-15 

REGIONS 

Page Regions 15-40 

register 

LINAGE-COUNTER 9-8 
special registers A-1 



RELATION 

Abbreviated Combined Relation 

Conditions 7-9 
relation condition 7-4, 8-9 

relational operator 7-4, 9-57 

RELATIONSHIP 

Relationship of COBOL Program to the 
CMOS 15-2 

relative 

files 9-11, 9-64 
key 9-52, 9-57 

RELEASE statement 10-10 

REMAINDER phrase 7-23 

RENAMES clause 6-33 

REPLACE statement 12-6 

replacement rules 7-36 

REPLACING phrase 7-37 

REPORT 

DATA DIVISION FOR THE REPORT WRITER 

16-3 
DESCRIPTION OF THE REPORT WRITER 

16-i 
File Description Entry For The 

Report Writer 16-4 
File Section for the Report Writer 

16-3 
PROCEDURE DIVISION FOR THE REPORT 

WRITER 16-51 
REPORT clause 16-41 
Report Description - Complete Entry 

Skeleton 16-6 
REPORT DESCRIPTION ENTRY 16-3 
REPORT FOOTING 16-39 
REPORT FOOTING phrase 16-48 
Report Group Description - Complete 

Entry Skeleton 16-8 
REPORT GROUP DESCRIPTION ENTRY 16-3 
REPORT HEADING 16-38 
REPORT HEADING phrase 16-47 
Report Section for the Report Writer 

16-3 
Report Writer Control System (RWCS) 

16-1 
summary report 16-51 

report-name 15-51, 16-53, 16-55 

REPORTING 

USE BEFORE REPORTING 16-48, 16-54 
USE BEFORE REPORTING statement 
16-55 

RESERVE clause 9-15 

Reserved Words 2-5, A-1 

RESET 

RESET phrase 16-43 
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RESTRICTIONS ON PROGRAM FLOW 11-5 

resultant-identifier 7-11, 7-18 

RETAIN option 9-24 

RETENTION 9-38 

RETURN statement 10-11 

REWRITE statement 9-54 

ROLLING 

rolling forward 16-44 

ROUNDED phrase 7-11 

RULES 

Alignment Rules 2-14 
Condition Evaluation Rules 7-10 
Condition-Name Rules 6-41 
Data Allocation Rules 2-14.1 . 
Editing Rules 6-26 
for positioning data 2-14 
for qualification 2-16 
for replacement 7-36 
for spacing 3-1 
. for tallying 7-36 
general rules 4-1 
LINE-COUNTER Rules 16-7 
PAGE-COUNTER Rules 16-6 
syntax rules 4-1 

RUN phrase 7-53 

RWCS 

Report Writer Control System (RWCS) 
16-1 



SAME clause 9-19 

SAME RECORD AREA clause 9-20, 9-54, 
9-60, 10-4, 10-10 

SAME SORT-MERGE AREA clause 10-3, 
10-4 

SEARCH 

SEARCH ALL 2-18, 8-12 

SEARCH statement 8-10 

SECTION 

COMMUNICATION FACILITY DATA DIVISION 

- COMMUNICATION SECTION 15-2 
Configuration Section 1-3, 6-4 
Constant Section 1-5, 6-14 
debugging sections 13-3 
Default Section 5-1 
division, section, and paragraph 

formats 3-3 
File Section 1-5, 9-25 
File Section for the Report Writer 

16-3 
format 3-3 
Input-Output Section 1-4, 9-9 



SECTION (eont) 

Linkage Section 1-5 

Report Section for the Report Writer 

16-3 
section header 3-3 
Working-Storage Section 1-5, 6-13 

SECTION-NAME 2-5 

SEGMENT 

independent segment 7-51, 11-2 
message segment 15-22 
Program Segments 11-1 
source input segment 3-4 
STRUCTURE OF PROGRAM SEGMENTS 11-3 

SEGMENT phrase 15-9, 15-19 

SEGMENT -LIMIT clause 11-4 

SEGMENTATION 

description of segmentation 11-1 
Segmentation Control 11-2 

SELECT clause 9-47 

SEND statement 15-10, 15-21 

SENTENCE 

compiler-directing sentence 1-8 
conditional sentence 1-8 
imperative sentence 1-9 
STATEMENTS AND SENTENCES 1-8 

SEC3UENCE 

Sequence Numbers 3-2 

SEQUENTIAL 

ACCESS MODE IS SEQUENTIAL 9-15 
sequential access mode 9-2 
Sequential and Stream Files 9-62 
sequential files 9-10 

SET statement 7-52, 8-15 

SIGN clause 6-35 

sign condition 7-7 

SIGN IS SEPARATE clause 6-35, 9-30 

signs 

editing 2-14 
operational 2-14 

Simple Conditions 7-3 

simple insertion editing 6-26.1 

SIZE ERROR phrase 7-11, 7-24 

SIZE phrase 7-55 

SORT statement 2-21, 10-10, 10-11, 
10-12, 13-7 
in segmented programs 11-6 
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SORT-MERGE 

data division for sort-merge 10-5 
DESCRIPTION OF SORT-MERGE 10-1 
Environment Division for sort-merge 

- input/output section 10-2 
file description 10-5 
FILE-CONTROL paragraph for 

sort-merge 10-2 
Procedure Division for sort-merge 

10-6 
sort-merge file description 10-5 

SOURCE 16-6 

SOURCE clause 16-42 
source input segment 3-4 
source program 14-1 
SYMBOLIC SOURCE 15-14, 15-16 

SOURCE-COMPUTER paragraph 6-5 

spacing rules 3-1 

Special Characters 4-3 

special insertion editing 6-27 

special level-numbers 66, 77, and 88 
2-12 

Special Registers A-1 

Special-Character Words A-1, 2-7 

SPECIAL-NAMES paragraph 6-8 

SPECIFICATIONS 

explicit and implicit specifications 
2-20 

START statement 9-56 

STATEMENT 

ACC EPT 7—1 5 

ACCEPT MESSAGE COUNT 15-12 

ADD 7-17 

ALTER 7-19 

ALTER Statement 

in Segmented Programs 11-5 
arithmetic statements 7-12 
CALL 14-1, 14-6 
CANCEL 14-8 
CLOSE 9-39 
common phrase in statement formats 

7-11 
compiler-directing 1-8 
COMPUTE 7-20 
conditional 1-8 
COPY 2-21, 12-2 
DELETE 9-44 
DISABLE 15-14 
DISABLE OUTPUT 15-10 
DISPLAY 7-21 
DIVIDE 7-22 
ENABLE 15-16 
ENABLE OUTPUT 15-10 
EXIT 7-25 
EXIT PROGRAM 14-9 



STATEMENT (cont) 
formats 

common phrase 7-11 
GENERATE 16-51 
GO TO 7-26 
IF 7-27 
imperative 1-9 
INITIATE 16-53 
INSPECT 7-31 
MERGE 10-6 
MOVE 7-39 
Multiple Results in Arithmetic 

Statements 7-13 
MULTIPLY 7-42 
OPEN 9-45 

PERFORM 2-18, 2-21, 7-44, 8-15 
PERFORM Statement 

in Segmented Programs 11-5 
PERFORM Statement in Segmented 

Programs 11-5 
PURGE 15-17 
READ 9-50 
RECEIVE 15-18 
RELEASE 10-10 
REPLACE 12-6 
RETURN 10-11 
REWRITE 9-54 
SEARCH 8-10 
SEND 15-21 
SET 7-52, 8-15 

SORT statement 2-21, 10-lu, 10-11, 
10-12, 13-7 

in Segmented Programs 11-6 
START 9-56 

STATEMENTS AND SENTENCES 1-8 
STOP 7-53 

STOP RUN 7-53, 14-2 
STRING 7-54 
SUBTRACT 7-57 
SUPPRESS 16-54 
TERMINATE 16-55 
UNSTRING 7-59 
USE 9-58 

USE BEFORE REPORTING 16-56 
USE FOR DEBUGGING 13-3 
WRITE 9-59 

Statements and Sentences 1-8 

status 

in put /out put 9-2 
STATUS KEY 15-13 

status key 1 9-3 

status key 2 9-3 

STATUS KEY clause 15-5, 15-7 

STOP literal 7-53 

STOP RUN statement 7-53, 14-2 

STOP statement 7-53 

STORAGE 

Interprogram Data Storage 14-2 
Noncontiguous Linkage Storage 14-3 



7/81 



i-12 



AS44F 



STREAM 

Sequential and Stream Files 9-62 
Stream Files 9-13 
stream organization 9-1 

STRING statement 7-54 

subscripting 2-17, 8-1 

subtotalling 16-4U 

SUBTRACT statement 7-57 

SUM 16-33, 16-49 
SUM clause 16-43 
sum counter 16-44 

SUMMARY 

summary report 16-51 

SUPPRESS 16-49 

SUPPRESS statement 16-54 

swap procedure 
reel/unit 9-8.1 

switch 

compile-time 13-1,1 
object-time 13-2 

SWITCH -STATUS 

switch-status condition 7-6 

SYMBOL 

Combination of Symbols in Arithmetic 

Expressions 7-3 
currency symbol 6-27 

SYMBOLIC 

SYMBOLIC DESTINATION 15-15, 15-17 

SYMBOLIC QUEUE 15-14, 15-16, 15-18 

SYMBOLIC SOURCE 15-14, 15-16 

SYMBOLIC DESTINATION clause 15-7 

SYMBOLIC QUEUE clause 15-5 

SYMBOLIC SOURCE clause 15-5 

SYNCHRONIZED clause 6-37 

syntax rules 4-1 

SYSIN 6-10, 7-15 

SYSOUT 6-10, 7-21 

SYSTEM 

Message Control System (CMCS) 15-1 
Report Writer Control System (RWCS) 
16-1 

System-Names 2-7, A-1 , 2-5 

TABLE 

Data Division for table handling 

8-5 
description of table handling 8-1 



TABLE (cont) 

Procedure Division for table 

handling 8-9 
References to Table Items 8-2 
Table Definition 8-1 
table element 2-17, 8-1, 8-10, 8-16 
table handling 8-9 
Table Searching 8-4 

TALLYING phrase 7-62 

tallying rules 7-36 

tape files 

label processing 9-8.1 

TAPE-OPTIONS phrase 9-23 

TECHNIQUES 

Input/Output Techniques 9-21 

temporary operands 7-13 

TERMINAL 15-14, 15-16 

TERMINATE 16-48, 16-52, 16-53 
TERMINATE statement 16-55 

TEST 

ALPHABETIC test 7-6 
NUMERIC test 7-6 

TEXT 

TEXT LENGTH 15-22 

TEXT LENGTH clause 15-5, 15-7 

transfer of control 2-21, 7-27, 7-46, 
10-8, 10-14, 11-2, 13-7 
(CALL) 14-1 

truth value 7-8 

TYPE 

TYPE clause 16-46 
TYPE DETAIL 16-51 

unary arithmetic operators 7-1 

UNSTRING statement 7-59 

UPON phrase 7-21 

UPPERCASE 

Uppercase and Lowercase Letters 2-1 
uppercase words 4-2 
uppercase/lowercase output 3-4 

USAGE clause 5-3, 6-38, 8-8 

USAGE IS INDEX clause 6-14, 8-8 

USE FOR DEBUGGING statement 13-3 

USE statement 9-58 

USER -DEFINED 

other user-defined words 2-5 
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USER-DEFINED (cont) 

User-Defined Words 2-3 

USING phrase 8-8, 10-15, 11-3, 11-5, 
1H-6 

VALUE 

figurative constant values 2-9 

initial value 6-12 

Linkage Initial Values 14-4 

truth value 7-8 

working-storage initial values 6-14 

VALUE clause 6-14, 6-40 

VALUE OF clause 9-38 

VARIABLE 

conditional variable 2-4, 2-15, 
2-20, 6-41, 7-6 

variable-length records 9-17 

VARYING phrase 8-13 

vertical positioning 9-59, 15-24 

VLR 9-17 

WHEN phrase 8-12 

WORDS 

COBOL WORDS 2-3 
KEY WORDS 2-6 
lowercase words 4-2 
optional 2-6, A-1 
other user-defined words 2-5 
reserved 2-5, A-1 
special-character 2-7, A-1 
uppercase words 4-2 
User-Defined Words 2-3 

WORKING-STORAGE 

working-storage initial values 6-14 
working-storage records 6-14 
Working-Storage Section 1-5, 6-13 

WRITE statement 9-59 

WRITER 

DATA DIVISION FOR THE REPORT WRITER 

16-3 
DESCRIPTION OF THE REPORT WRITER 

16-1 
File Description Entry For The 

Report Writer 16-4 
File Section for the Report Writer 

16-3 
PROCEDURE DIVISION FOR THE REPORT 

WRITER 16-51 
Report Section for the Report Writer 

16-3 
Report Writer Control System (RWCS) 

16-1 

zero suppression editing 6-28 
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